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ABSTRACT 
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This thesis is a two player, microcomputer controlled, 
tactical motion analyzer (TMA) of unit movements. TMA is 
designed to be used in either a manual or computer driven 
wargame. Written in the computer language Pascal, implemen- 
tation is designed for the APPLE II computer. The program is 
contained on two, 5 inch floppy diskettes. Specific unit 
characteristics are entered into the database by the users. 

Users may then analyze unit movements using time-step simulation. 
Data transfer between computers is done by the users physically 
exchanging diskettes. The game may be replayed or saved 
and continued at any time. The program logic and data mani- 
pulation are discussed in detail within the text of the 
thesis . 
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I. INTRODUCTION 



The purpose of this thesis is to provide a user friendly, 
two player, microcomputer controlled, tactical motion analyzer 
(TMA) of unit movements. 

Since their advent, computers have been used by the 
military and civilian contractors alike in an attempt to 
simulate war environments. This was first done by the 
vacuum-tube computers to solve firing solutions for anti- 
aircraft guns, and later by high speed, mainframe computers 
to simulate complete battles and even war scenarios. Only 
recently has the technology been available to do similar 
applications on microcomputers. Specifically, memory chip 
density advances have to be the most significant contribution 
in this field. 

The hardware to do large scale wargaming has been 
available for several years, but it is only now that software 
development is approaching the sophistication level so that 
non-computer enthusiasts can sit down at a terminal and 
successfully interact with a computer wargame. It is with 
this in mind that this thesis was written. A primary goal 
of TMA is to design human factors and ease of use into a 
game as it is written. This subject is discussed in depth 
in chapter III. 

Although TMA is a complete program, there are many 
unexplored areas that could enhance it. Chapter V III lists 
some suggestions for future expansion. 
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In order to use the TMA program, the following equipment 
is required: the TMA diskettes (two for each player), two 

Apple II computers, two disk drives and a monitor for each 
machine . 

Prospective users of this program may include anyone 
interested in observing relative unit motion while interacting 
with a microcomputer. Since this program is an interactive, 
two person game, these individuals will be able to test 
strategies for maneuvering their units. Through playing the 
game and becoming familiar with some surface vessel tactics, 
it is hoped that this program will be of some educational 
benefit to U.S. Navy line officers. 
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II. GOAL OF THE TMA PROGRAM 



A. WARGAMES IN GENERAL 

The author has had some limited experience with U.S. 

Navy funded, commercially produced, interactive computer 
wargames. This experience is restricted to the Warfare 
Environment Simulator (WES). WES is a real-time man- 
interface discrete time step simulation for analytical 
wargaming applications in support of a broad range of 
research and development objectives. WES was produced by 
System Development Corporation (SDC) located in San Diego, 
California. WES appears to do what it's suppose to do, 
however, it also has some very difficult characteristics. 
Specifically, it is difficult to use. A variety of special 
commands and code words must be learned before playing the 
game. These are many in number and nonstandard compared to 
military nomenclature. In many cases numerous man-hours 
must be spent in becoming familiar with these terms which 
are most often germane only to the present system. 

Many computer wargames are designed for implementation 
on large, fast and expensive mainframe computers. This 
very description implies a limitation for its users. Due to 
the high initial costs and maintenance expenses, general 
user availability is less than optimal. Additionally, 
software "experts" must be on hand to answer questions and 
help train system users. This makes the wargame expensive 
to run and maintain. 
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Another problem that is not restricted to military 
wargames, but to sophisticated software in general is lack 
of good documentation! Granted that software engineers who 
develop, design, write and test programs are gifted individual 
their ability to write user instructions for the layman is 
suspect. After spending months and sometimes years developing 
software packages it is understandable that these same people 
may lose perspective. There are two extremes to the documen- 
tation dilemma; too technical or too general. It seems as 
if the too technical examples were written by the software 
engineers while the authors of the too general documentation 
never really understood what the program was supposed to do. 

Price notwithstanding, ease of use or user friendliness 
may be the major factor influencing acceptance of micro- 
computers and computer generated software in the future. 
Several articles have appeared in recent magazine issues of 
BITS [Ref. 1] and PERSONAL COMPUTING [Ref. 2] dedicated to 
the subject of human factors design engineering in hardware 
and software systems. Basically they both say that as the 
general public begins to accept microcomputers into their 
daily routines, the transition to a computerized society 
will be made smoother by the software designers. They must 
design their programs with the general public in mind. 

Civilian contractors who supply wargames to the military have 
a head start on the rest of the computer software industry, 
but there is still a long way to go. 



Another possible advantage in using microcomputers for 
wargaraing is reducing the intimidation the user feels while 
sitting in a large computer center time sharing with a 
mainframe computer. Anxiety and trepidation on the behalf 
of the user may be kept to a minimum by using micros that 
incorporate user friendly software. 

Two major disadvantages associated with using micro- 
computers for large scale wargaming are: 

1. The lack of standardisation in the microcomputer 
industry. 

2. The inability of today’s microcomputers to handle 
very large databases with the speed necessary to use 
them in "real time" applications. 

Until an industry-wide standard is adopted purchasers 
of systems must ask themselves if what they're buying will 
be compatable with what they already have or what they may 
buy in the future. 

The second disadvantage is not as serious as the lack of 
standardisation since technological breakthroughs often 
occur. Today's 8-bit and lo-bit microprocessors will surely 
give way to tomorrow's 32 and 64-bit microprocessors. This 
increased size chip will allow vast amounts of online 
computer memory to be available for instant recall, thereby 
allowing increased database size and retrieval speed. 
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B. TMA IN GENERAL 



The TMA program is a small scale attempt to correct many 
of the above listed deficiencies. The microcomputer has 
become a very powerful computing tool. This is due primarily 
to technological increases in the areas of silicon chip 
memory densities and larger, more sophisticated microprocessors 
with faster cycle times. The microcomputer's lover cost and 
high reliability make it possible to increase overall 
availability of computer wargames as well as computers in 
general . 

The major goal of the TMA program is to demonstrate some 
user friendly software implementation techniques while 
exploring the capabilities of microcomputers in wargaming. 

In addition to being informative and instructive in nature, 
this program is intended to be painless to use and fun to 
watch. This is made possible by: 

1. Programming the game in the computer language Pascal. 

2. Using the high resolution graphics capability of the 
Apple II computer. 

Pascal was chosen as a programming language over BASIC 
and FORTRAN because of its highly structured nature. This 
structuring allows, if not requires, modular design and makes 
it very legible and comprehensible for large programs. Changes 
and modifications can be made several times faster than in 
unstructured languages. Also, Ada, which is soon to be 
required of all contractors who want to do business with 
the U.S. Department of Defense, can be thought of as an 
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enhancement of Pascal. Pascal comes in many versions. The 
version used for TMA is Apple Pascal which incorporates UCSD 
Pascal and Apple extensions for graphics, sound, and paddles. 

Of these extensions TMA uses graphics and sound. 

The high resolution graphics capability of the Apple II 
computer makes it possible to produce an aesthetically pleasing 
graphical presentation of the actual events as they happen 
during the simulation. This could be expanded upon by having 
a high resolution color monitor instead of a green or black 
and white screen. Visual representation prompts faster feed- 
back from the user. He can quickly scan and understand each 
tactical situation as it occurs. The more computer graphics 
are used to represent what is actually happening, the more 
useful the wargame will be to the user. 
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III. THE PROGRAM 



TMA is an acronym standing for Tactical Motion Analyzer. 
The main program is comprised of three separate subprograms; 
the database, the motion analyzer and a fast-time replay of 
the motion analyzer. 

The database subprogram is designed to be interactive in 
nature. Menus are used throughout the program that offer the 
user a selection of specific choices that may be made. Once 
an appropriate choice is made, that segment of the program 
becomes active. If the user makes a mistake or changes his 
mind about a selection, the program will allow the user to 
regress to the previous level. When an input is required 
the computer will prompt the user. If an unexpected input is 
received the computer will beep, the input will be erased from 
the screen and the user will again be prompted for input. 

This will not prevent erroneous input from getting into the 
database, but will prevent the user from entering a number 
if a letter is expected and vise versa. 

The database portion of the program allows the user to 
develop and save various parameters of specific units. These 
parameters are entered by the user and then saved as a file 
on the game diskette. This information is then available 
throughout the program using random access. There is a 
default database on the TMA1 diskette consisting of ten units 
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(specifically surface vessels). The user can use the default 
database or devise his own. Each game diskette has room for 
at least ten separate user database files. Input required by 
the database for each unit is as follows: 

1 . Class 

2. Name 

3. Hull number 

4. Initial Course 

5. Initial Speed 

6. Position (X-Y coordinates) 

7. Maximum unit speed 

8. Number of surface-to-surface missiles (SSM) on board 

9. SSM speed 

10. Number of surface-to-air (SAM) missies on board 

11. SAM speed 

Course and speed are the only parameters which may be 
altered before each move. 

Each user database must have a different name. When the 
diskette becomes full, the program will let the user know by 
printing an appropriate message on the screen. More room can 
be made available on the diskette by removing an unnecessary 
datafile. 

The database subprogram is completely self con tained. 

While the user is interacting with this section of the program, 
no data is transferred between computers. 

The second subprogram of TMA deals with the mathematical 
manipulation and graphical display of the program. All 
calculations in TMA are deterministic. Motion for each unit 
is computed from three inputs provided by the user; course, 
speed and time. Course and speed are maintained in the 
database. A time increment is entered before every time-step. 
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Geometry and trigonometry are used to derive all unit 
motion. The calculations are first computed for the user's 
side, then the program automatically communicates with the 
opponent's program and retrieves the necessary data to plot 
the updated positions of his units. A history of all position 
changes are saved on the diskette for later use by the program. 
Communication between computers is handled by the user. The 
program will stop at the appropriate time and request the 
players to exchange program diskettes. This exchange allows 
each player to view the moves made by the opponent. If for 
some reason this exchange is not made, the program will 
continue to run, however, only the moves made locally will 
be displayed. 

Between moves the user can study each unit's situation. 

The user has the following options: 

1. Draw a circle of a specified range. 

2. Compute the range and bearing between units. 

3. Determine closest point of approach (CPA) between units. 

4. Calculate intercepts between units. 

5. Move individual units around the screen. 

6. Advance to the next time-step. 

A more specific description and explanation of how to use 
the program follows in the Appendix in the form of a user's 
manual . 

The graphical representation of TMA is oriented in U.S. 

Navy standard. North is 360 or 000 degrees and corresponds 
to the top of the screen. East is 090 degrees and is the 
right side of the screen as the user views it. 3earir.gs 
increase to the right (clockwise). The graphic screen of the 
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Apple computer is not square but is actually a rectangle that 
measures 280 dots along the X-axis (horizontally) and 192 
dots along the Y-axis (vertically). This rectangular display 
has some inherent disadvantages. The disadvantage most 
noticable to the user will be that circles drawn on the display 
will appear as ellipses. Also, identical distances drawn along 
both axes will show on the screen as having different length. 

The graphics screen of TMA, as viewed by the user, will 
consist of a 100 by 100 mile square grid. Each dot will 
represent one mile. The lower left-hand corner will be the 
origin. The horizontal and vertical axes correspond to the 
X and I axes, respectively. These square coordinates will 
be linearly transformed, within the mechanics of the program, 
into the rectangular grid that the Apple computer uses. All 
numerical output to the user will again be transformed to the 
more familiar 100 by 100 grid. 

This method of graphic display was chosen by the author 
to ensure a one-to-one correspondence between the user's 
grid coordinates and that of the machine. In retrospect, 
this may not be as important as originally envisioned. 
Consequently, this phenomenon is one that may be corrected 
by changes to the program code. 

Calculations are performed using real numbers, which on 
the Apple Computer have precision to seven decimal digits. 
However, displaying these positions on the screen require 
rounding off each position to its integer equivalent. The 



impact of this induced rounding error is varied depending on 
what scale the user is viewing the screen. For example, the 
initial scale is 1 dot per mile. In this scale the round 
off error may account for a screen positioning error of up 
to one mile. 

The final section of TMA is the fast-time replay subprogram. 
When Rerun is invoked by the user, the screen will clear and 
display the game situation as it was before the first move of 
the game. During this phase of the program all user options 
are active just as before. However, when the user elects to 
advance to the next time step, instead of computing new positions, 
the computer will read the next set of coordinates from it's 
history file and display them on the screen. This gives the 
user the ability to observe a lengthy series of moves condensed 
into a relatively short time. This is an ideal time for the 
user to critique his own tactical decisions and to observe 
those of his opponent. The Rerun subprogram is completely 
self contained, that is, no interaction takes place between 
computers. Each terminal is a stand alone system at this 
time requiring no exchanging of diskettes. 
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IV. MOTION ANALYZER 



A. INITIALIZATION 

TMA is a large program as microcomputers go. The text 
version is over 3000 lines of Pascal code. The compiled 
length equates to about 40,000 bytes. This does not include 
the library routines that are used for graphics and trigono- 
metric functions, nor memory that is set aside for variables. 
Although the Apple II is a 64,000 byte machine, it cannot 
store the Pascal language, TMA, and the library routines in 
memory at the same time. Pascal, however, is such a flexible 
language that it allows the programmer to divide programs into 
smaller segments that are only loaded into memory when 
needed. Only the 'main' program need reside in memory at 
all time. 

The 'main' program is loaded into memory automatically 
when the machine is turned on, provided the TMA diskettes 
are in the disk drives. The 'main' program has two important 
functions : 

1. The declaration of all global variables used in TMA. 

2. The job of 'program director'. 

Many variables used in TMA are global. The record which 
contains all database information, datafile names, and flag 
names are needed in various segments throughout TMA. In 
order to pass the values of these variables between program 
segments, they must be declared in the main program. 
Unfortunately, each global variable consumes precious memory. 
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The main program acts as program director by checking the 
status of each flag variable. Throughout the program various 
flags are set. These flags are boolean variables that have 
values of 'true' or ’false'. These flags are changed as the 
user progresses through the program. .When the user leaves a 
segment, TMA always returns to the main program to check the 
flags. The main program determines which segment is to be 
loaded into memory based on present flag status. This loading 
and unloading of segments into the memory is virtually 
invisible to the user. However, program response time is slowed 
by freo_uent access to the disk drives. 

Once the main program is loaded, execution begins. TMA 
reads a file on the THAI diskette called SYSTEM. MISCINFO. 

This file contains the screen control characters for each 
computer. Using SYSTEM . MISCINFO allows the programmer to 
perform general video functions that are terminal independent. 
These functions include clearing the screen and positioning 
the cursor. 

An initialization segment (TMAINIT) is loaded next. 

TMAINIT sets certain variables, arrays, and all flags to 
their initial values. This segment also asks the user if he 
wants to resume an old game. If the user responds affirma- 
tively, the proper flag is set and the program transfers to 
the RESUME segment. The RESUME segment reads data from the 
last move of a previous game from five different disk files 
on the diskette TMA2. These five disk files are then removed 
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from the diskette. If the user opts to begin a new game, the 
motion analyzer subprogram is invoked by selecting the MOTION 
ANALYSIS PROGRAM option. This subprogram is the bulk of TMA. 

B. MOTION ANALYSIS 

1 . Segment procedure MATHFUNC 

The procedure MATHFUNC marks the actual beginning of 
the MOTION ANALYSIS PROGRAM. This procedure has several 
related functions. 

MATHFUNC first asks the user the name of the aiskfile 
containing the database for the game. The user enters the 
filename, and the program locates and reads that diskfile. 

Should the user misspell or make a mistake typing the filename, 
the program will continue to prompt the user until a correct 
filename is entered. The program, having read the desired 
datafile, computes each target's initial position and displays 
them on the monitor. This gives the user an opportunity to 
visually check the information in the database. The user 
must press the escape key (ESC) on the keyboard to continue. 

At this point, the user has two options. The user may elect 
to continue the game, or return to the database segment to 
make changes to the database. The database segment is 
discussed in detail in chapter 5. 

If the user decides to continue then several events 
occur. TMA opens two historical datafiles on TMA1 (ORNGOLD. DATA 
and BLUEOLD. DATA ) . These datafiles maintain unit positioning 
data for use during the RERUN segment of TMA. Specifically, 
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sach file contains an X and Y coordinate for each unit and the 
time increment for each game move. One additional disk file 
is initialized also ( BLUENOW. DATA ) . This file, on TMA2, 
maintains the present positioning data for the user's units. 

At this time TMA ceases to be a self-contained program 
and the user is informed that data transfer between players is 
necessary. Instructions are displayed on the monitor and the 
user need only follow them. These instructions request the 
user to remove the TMA2 diskette from drive if 2 and exchange 
it with his opponent's TMA2 diskette, then place this TMA2 
diskette in drive ft 2 . As mentioned above, a datafile 
(BLUENOW. DATA ) is maintained on TMA2 that contains current 
positioning data. When these diskettes are exchanged, current 
positioning data is also exchanged. Both sides now have 
current positioning data for themselves and their opponents. 
The MATHFUNC segment terminates, sets the proper flags, and 
transfers program control back to the main program. 

2 . Segment procedure MOTION 

The main program transfers control of TMA over to the 
procedure MOTION. This procedure performs the actual motion 
analysis requested by the user. The user has the following 
options : 

1 . Advance to next time-step. 

2. Draw range circle around a specified unit. 

3. Compute range between units. 

4. Determine CPA between units. 

5. Determine Gourse/Speed of units. 

6. Check/Change movements of a unit. 

7. Compute intercept between units. 
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8. Clear the display. 

9. Downscale display. 

10. Upscale display. 

11. Recenter the display on a specified unit. 

12. Toggle between text and graphic page. 

13. Terminate the game. 

3 . Segment procedure ADVANCE 

The Advance option transfers control of TMA to the 
ADVANCE procedure. Based on a time step entered by the user, 
the program calculates new X, X- coordinates for all units. 

The following formulae are used: 

X' = X + (SPEED/60 x TIME x 2.8 x SIN(COURSE)) 

X' = X + (SPEED/60 x TIME x 1.92 x COS(COURSE)) 

X', X' represent the new X and X positions respectively. 
SPEED is the unit's speed in nautical miles per hour, the 60 
converts it to minutes. TIMS is the time-step entered by the 
user in minutes. The numbers 2.8 and 1.92 are the number of 
graphical dots per nautical mile in each plane X, X. The 

trigonometric functions SIN and COS determine the X and X 

components of the unit's velocity. 

Before the actual computations are performed, however, 
the user is given the option of viewing and changing the 
present course and speed of each unit. This way minor changes 
may be made to the database without returning to the database 
procedure . 

A pictoral representation of units before and after 
they advance is shown in figures 1 and 2 on the following 
page. Figure 1 shows three units as they may appear before 
being advanced. Figure 2 shows the units after they have 
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Figure 1: Monitor before advance 
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advanced. Both the before and after positions will be 
displayed until the user clears the screen or changes scale. 

After the new X and Y coordinates are calculated, they 
are saved on the diskette TMA2. Once again the user goes 
through the diskette exchanging procedure with his opponent. 
These coordinates are then saved in the historical datafiles 
on the diskette TMA1 . 

The ADVANCE procedure then transfers control back to 
the MOTION procedure. The new unit positions are displayed 
and the user may again select from the various options. 

4 . Segment procedure CIRCLE 

This procedure allows the user to draw circles of a 
specified range around any unit. The TMA program prompts 
the user for the circle's origin and a radius in nautical 
miles. Due to the graphical limitations of the APPLE II 
computer, these circles must be drawn one dot at a time. 

The circles will always appear elliptical vice circular. 

This is because of the difference in the number of dots per 
mile along the horizontal axis and the vertical axis. Figure 
3 shows the display after a circle is drawn around unit number 
one. After the circle is completed, control of TMA is returned 
to MOTION. 

5 . Procedure RANGE 

Procedure RANGE is incorporated into the MOTION segment 
procedure since it is relatively small. RANGE calculates the 
distance between any two units. The program prompts the user 
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for the unit numbers desired, target 1 and 2. A line is 
drawn between the units, and the range is displayed in nautical 
miles. Range is calculated using the square root of the sum 
of the squares. 

DIST = SQRT( ( (X2-X1/2.S)A2 + ( (Y2-Y1 / 1 . 92) A 2) 
where , 

XI , Y1 is the present position of target 1 . X2, 

Y2 is the present position of target 2. The factors 2.8 and 
1.92 transform the units from dots per nautical mile to 
nautical miles. The term 'A2' means raised to the second 
power. SQRT implies take the square root. 

Figure 4 shows the display after the range between 
unit zero and unit one has been calculated. After displaying 
the calculated range between targets, program control is 
returned to the MOTION segment. 

6 . Segment procedure CPA 

The CPA procedure calculates the closest point of 
approach between two designated units. Computations are based 
on present course and speed. 

CPA derives all information, course and speed, from 
the two most recent unit positions. Obviously, if no advances 
have been made, course and speed can not be determined. CPA 
will inform the user that not enough data exists to calculate 
CPA. 

Assuming at least one time-step advance has been made, 
CPA is calculated as follows: 
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Figure 3 : Monitor with circle displayed 




Figure U: Monitor with range displayed 
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The two most recent positions of all units are main- 
tained in a global array throughout TMA . Eased on these 
positions the course of any unit can be calculated using the 
arctangent function. 

COURSE = ARCTANGENT ( ( DX/ 2.8)/(DY/1.92)) 

DX is the distance moved in the X direction and DY is 
the distance moved in the Y direction. Once again these 
distances are translated from dots per nautical mile to nautical 
miles. A problem occurs when DY is zero or close to zero. 

By checking this first the program can avoid 'division by 
zero’ errors. If DY is zero the course must be either 090 
or 270 degrees. Again this can be determined by the sign of 
DX. If DX is positive, for example, the unit is traveling 
270 degrees. Unit speed is calculated in a two stage process. 
Distance is calculated first using the same method described 
in RANGE above. Speed is derived from this distance divided 
by the length of time of the last time-step. 

Knowing the course and speed of the units the program 
uses the X and Y components of velocity to compute the time 
of minimum distance. This is the time of CPA. Once CPA time 
is known, the relative future positions of each unit is cal- 
culated and displayed. Figure 5 shows the screen after TMA 
has calculated CPA between unit zero and unit one. The end 
point of the displayed lines is the relative unit positions at 
CPA. Finally, the program informs the user of the number of 
minutes until CPA, and the range and bearing between units at 
CPA. 

Control is then returned to the MOTION segment. 
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Figure 5 Monitor showing CPA 
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7 . Procedure INTERROGATE 



This procedure determines the course and speed of any 
unit. As in CPA above, this procedure uses the two most 
recent positions of the target to determine its course and 
speed. The program will inform the user that it does not 
have enough data. If the user attempts to invoke this pro- 
cedure after at least one time-step advance, then the unit's 
course and speed are calculated exactly as described above in 
CPA. After the course and speed has been determined and 
displayed, program control is returned to MOTION. 

8 . Segment procedure MOVEMENT 

The MOVEMENT procedure moves individual units around 
the grid before actually making the changes permanent in the 
database. Three types of movement are possible for the 
player's units and one type for the opponent's units: 

1. Movement using course, speed and time. 

2. Move your unit to any X,Y coordinate. , 

3. Move your unit a bearing and distance. 

4. Move your opponents units based on their present course 
and speed. 

Option one prompts the user for the unit number, 
desired course, speed and time. The future position is 
calculated using SIN and COS functions, and then displayed on 
the monitor. Option two prompts the user for a unit number 
and an X and Y coordinate, which is then displayed on the 
monitor. Option three prompts the user for a unit number, 
bearing and distance. This is transformed into an X and Y 
coordinate, then displayed on the monitor. Option four is 
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not directly visible to the user, nonetheless, it is there. 

If the user wishes to move an opponent's unit, option four is 
automatically invoked. Option four transfers control to 
segment procedure M0VE2. 

All movements allow the user the option trace-on 
or trace-off. Trace on draws a line from the old position 
to the new position. Trace off will not. After making a 
move the program asks the user if it should incorporate the 
move into the database for the next time-step. If the user 
answers affirmatively, the new course and speed for the unit 
moved will be entered. 

Figure 6 shows three different movements of unit 
number one. Note that two movements are with the trace-on 
and one is with the trace-off. All unit movements will 
remain visible on the monitor until the user clears the 
screen . 

The MOVEMENT segment can only be terminated by the 
user. Once terminated, program control is returned to MOTION. 

9 . Segment procedure M0VS2 

This segment is invoked only ivfhen the user wants to 
move an opponent's unit. Since the user has no control 
over the course and speed of these units, all movements are 
based on the individual unit's actual course and speed. Course 
and speed are computed exactly as discussed above in segment 
procedure CPA. Once again at least one time-step advance 
must have been made to compute the unit's course and speed. 
Assuming the data is available, the user is asked for a 
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time-step increment to see the unit's future position. The 
only other option allowed is the trace-on or trace-off. This 
also works exactly as described above in the MOVEMENT segment. 

Completion on the M0VE2 segment returns control of 
the program to the MOVEMENT segment. 

10 . Segment procedure INTERCEPT 

This procedure computes the course and speed required 
to intercept any unit from any user's unit. Three inputs 
are required by the user. Input one is the unit to be inter- 
cepted. The second input is the unit number of the intercepting 
unit. Note, this unit must be maneuverable by the user. The 
final input is the desired time of intercept (minutes). Once 
again at least one time-step advance must be made to compute 
an intercept. The time supplied by the user will determine 
the point of interception, assuming the data is available to 
compute course and speed of the unit to be intercepted. An 
intercept course is computed and speed is calculated based on 
the present position of the intercepting unit and the point 
and time of interception. This course and speed is displayed 
on the monitor and the user is asked if he wants to make this 
course and speed change to the database for the intercepting 
unit. 

When completed, control is returned to the MOTION 

segment. 

1 1 . THE5IS0 library segment 

The downscale and upscale options are contained in 
the SYSTEM. LIBRARY file on diskette TMA1 . These options allow 
the user to change the scale of the display at any time. 
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The left arrow key (-*— ) controls the downscale 
function. This function clears the display and then redisplays 
all units at a scale one half the previous value. For example, 
if the scale is 10 dots per nautical mile, it becomes 20 dots 
per nautical mile after a downscale. 

The right arrow key ( ■■■■») controls the upscale function. 
It is the exact inverse of the downscale function. If the scale 
is 10 dots per nautical mile, it becomes 5 dots per nautical 
mile after an upscale. 

Neither downscale nor upscale have any affect on the 
actual positions of the unit's coordinates used for calculations. 
These positions are kept in global arrays that are used 
throughout the program. The present scale is displayed at 
the top of the screen at all times. The scale shows the 
relative horizontal distance of ten miles. The user should 
note that the same vertical distance appears shorter because 
the number of dots per nautical mile is less. Automatic 
scaling is not available, the scale will not change unless 
the user exercises his options. 

1 2 . Segment procedure RECENTSR 

This procedure belongs in the THSSISO library, however, 
was made into its own segment because of memory constraints. 
RECENTER, as its name implies, recenters the display. The 
space bar activates this procedure. The user may recenter 
the display on any unit. This becomes very important as the 
game advances and the targets move. 
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Along the top of the display, next to the scale, are 
the center coordinates. These coordinates are initially 
(50,50) which is the center of the screen. As the user 
recenters, the top of the display always indicates the current 
screen center. 

After recentering, the control of the program returns 
to MOTION. 

1 3 . Toggle the display 

The APPLE II computer has two separate screens, the 
text screen and graphics screen. The TMA program tries to do 
a good job of anticipating the users needs by switching 
between text and graphics. However, the user has the option 
of switching between text and graphics on his own by using the 
escape (ESC) key. 

1 4 • Terminating TMA 

The final option available to the user is to terminate 
the program. TMA displays the same menu as was shown at the 
beginning of the game. If the user selects the TERMINATE 
PROGRAM option, the user is asked if he wants to save the 
game. This option should be selected if the user wishes to 
return later to finish the game. This option creates five 
different datafiles on diskette TMA2 for future use. When 
the user wishes to continue the game, answer affirmatively to 
that question and assure that TMA2 is in drive § 2 . The program 
will load the appropriate data, initialize the proper variables 
and return the user to the MOTION segment procedure as if 
he had never left. 
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V. THE DATABASE 



The database subprogram is invoked by selecting the 
'BUILD OR MODIFY DATABASE' option at the start of the game. 

The database uses random access disk files to build and main- 
tain a record of specific unit parameters. Modifications to 
an existing database are quickly made due to the random 
access structure. 

Initially, the program asks the user to enter a file name 
for the database. After the file name is entered, two 
possibilities exist: 

1 . The file name already exists on the game diskette. 

2. The file name does not exist on the diskette. 

If the name is presently on the game diskette, the program 
will read that file into the computer. That information will 
then be available for viewing and editing. If the file name is 
not on the diskette, the program will ask the user if he 
wants to start a new file. A 'no' response will cause the 
computer to again ask the user for a file name. A 'yes' 
response will prompt the program to ask how many records 
are needed for the new datafile. If the number of records is 
not known, a best guess is required. The number of records is 
necessary to define disk space for random access. However, 
if the user decides to extend the number of records the program 
will automatically extend the size of the datafile. The program 
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will notify the user should the diskette become too full to 
extend the datafile. To save disk space it is generally 
better to initially under estimate the number of records than 
to over estimate. 

At this point the user will choose from the following 
options : 

1 . View the present database. 

2. Change the present database. 

3. Build a new game database. 

The option chosen will determine how 'deep' into the database 
the user will go. Options one or two allow the user access 
only to the upper level of the database. Option three allows 
access to both the upper and lower levels. The upper level 
consists of the following: 

1 . Class : 

2. Hull number: 

3. Maximum speed: 

4. Number SAM: 

5. SAM speed: 

6. Number SSM: 

7. SSS speed: 

This option is recommended when the user is entering unit 
data, but is not ready to start a game. 

The lower level consists of the following: 

1 . Name : 

2. Course: 

3. Speed: 

4. X Coordinate: 

5. X Coordinate: 

This option is recommended when the user is ready to start the 
game. These inputs determine the initial starting position 
and speed for each unit. 
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After choosing which level of the database to enter, the 
program clears the screen and displays a prompt line along 
the top. This prompt line affords the user the following 
options : 

1 . Help 

2 . View 

3. Change 

4. Next 

5. File 

6. Return 

7. Quit 

The Help option explains each option. The View option displays 
each record for the users inspection. No changes may be made. 
The Change option displays each record and prompts the user 
for input. Changes are made respective to the level the user 
is in. The Next option displays the next record in the file. 
The File option saves the present database to the diskette 
and asks the user for another filename. The Return option 
allows the user to change levels within the database. Quit 
saves the present database to diskette and terminates the 
database session of TMA. 

Data entry into the database has been designed to be as 
painless as possible. The program displays the present con- 
tents of each field, when changes are required, on the top 
half of the screen. The user is prompted on the bottom half of 
the screen for input, one field at a time. If a restriction 
exists on the range of that input, that range is displayed as 
well. Any field may be left unchanged by either retyping 
that data or by using the RETURN key. The return key will 
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automatically duplicate the present data into the changed 
database for that field. 

Each record in the database is numbered by the computer. 
These numbers begin at zero and continue sequentially to 
N - 1, where N is the number of records in the database. 

Any record in the database may be viewed or changed at any 
time by entering that record number. Random access will 
minimize the time required to make minor changes to one or 
a few specific records. 

There exists on the TMA1 diskette two predefined databases, 
BLUEMASTER and BLUEGAME or ORANGEMASTER and ORANGEGAME 
depending on which side the user happens to be. These databases 
contain ten ships with characteristics from JANE'S FIGHTING 
SHIPS . They are provided for the user to use as he wishes. 

The user may modify these files or use them as they are in 
lieu of building his own database. It is recommended the 
user view these database files to get an idea of the type of 
input expected by the program. 
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VI. THE RERUN OPTION 



The RERUN subprogram is invoked by selecting the 'RERUN 
MOTION ANALYSIS PROGRAM' option at either the start of the 
game or after terminating a game. This option allows the 
user to view a fast-time replay of the most recent session. 

As mentioned in a previous chapter, all unit positioning 
data is saved in datafiles during the game on diskette TMA1 . 

The RERUN subprogram resets these datafiles and sequentially 
displays the unit positions. All TMA motion analysis options 
as described in chapter IV are available in RERUN. 

There is one difference between the RERUN and MOTION 
ANALYSIS subprograms. That difference is in the segment 
procedure ADVANCE. The RERUN version is a reconstruction of 
past events. When the advance option is selected, the user 
is not given an opportunity to examine or change the inputs 
to the database (unit course and speed). The ADVANCE segment 
only reads the next positioning data from the diskette files 
and displays it on the monitor. As always the user can 
analyze all unit motion. TMA will terminate when all 
available data has been displayed. 

Having a RERUN option gives the user a capability to 
repeatedly view and review all the moves of a previous 
session. It is worth noting that during this subprogram 
TMA is self-contained. No interaction between players is 
necessary since all positioning data is stored on the diskette. 
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VII. THE USSR'S MANUAL 



The following is a step by step instruction guide to 
facilitate the running the TMA by an unexperienced user. 

A. EQUIPMENT NEEDED 

1 . Two game diskettes marked TMA1 and TMA2 for each player. 

2. Two APPLE II computers with 64>000 bytes of RAM (random 
access memory) . 

3. Two disk drives and one monitor per computer. 

B. OPTIONAL EQUIPMENT 

1 . Videx 80 column board with soft-switch installed in 
APPLE'S slot § 3 . 

2. Color monitor. 

C. GETTING STARTED 

1 . Turn on the monitor. 

2. Insert TMA1 into disk drive #1 and TMA2 into drive § 2 . 
Remember to close the doors! 

3. Turn on the APPLE. The power switch is located on the 
left side of the APPLE in the back. 

4. The TMA program is automatically loaded. 

D. TROUBLESHOOTING POSSIBLE PROBLEMS 

1. No power--Ensure all hardware is properly connected. 

If the user is unfamiliar with the equipment, seek 
out an experienced user. 

2. TMA does not load. 

a. Check that the diskettes TMA1 and TMA2 are in the 
correct disk drives. 
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b. Ensure that the APPLE II is configured as listed 
above . 

c. Attempt the startup procedures on the second 
APPLE. If not successful, the diskettes may be 
defective, use the backup diskettes. 

d. Seek assistance from an experienced user. 

At this point, if the user has been successful, TMA is 
loaded and ready to run. Chapters 4> 5. and 6 explain in 
detail how TMA works and what inputs are required from the 
user. TMA is menu driven and designed to be user friendly. 
The author hopes the users enjoy it. 
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VIII. 



AREAS FOR FUTURE ENHANCEMENTS 



TMA is a small scale model of what a microcomputer, 
interactive wargame can do. As such there is much room for 
program enhancement. One reason the author chose Pascal as 
the program language is the readability of the code. It 
should be relatively easy for a user familiar with Pascal to 
make changes to the program. 

The design of TMA has significantly changed from initial 
logic to final product. The incorporation of various changes 
has resulted in a program that is far from optimal. The 
present design of TMA uses all the segments and library 
routines that Apple Pascal can handle. Therefore, any changes 
other than very small ones, will require the user to somehow 
condense the present code. 

The present inefficiency of the program is illustrated 
by the following example. The procedures that compute a 
unit's course and speed are repeated in four different segment 
procedures. If this were incorporated into a library it would 
only be written once and could be removed from each segment. 
There are several occurances of similar situations. 

Another method of streamlining the program is by chaining 
programs together. The built-in library function CHAINSTUFF 
provides the necessary machinery to chain together as many 
programs as can fit on a diskette. To use CHAINSTUFF on TMA 
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would require the reduction of libraries or segments presently 
used by at least one. With chaining the author can create 
many separate programs that appear to the user as a single 
large program. A user may wish to supplement TMA with some 
additional motion analysing options. Additions such as this 
may easily be appended to the present program. If lack of 
memory becomes a problem some of the above enhancements will 
be required also. 

A final area that could be enhanced is the individual 
algorithms themselves. The algorithms were written for 
clearity not efficiency. Many of the procedures and functions 
of TMA could be changed to conserve memory. 
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COMPUTER PROGRAM 



(3E5N+I) 

«$S++» 
m mho 

PROGRAM TMA; C THESIS ) 



USES 

TURTIEGRAPH ICS, TRANSCEND , 3ETCRT , THES I S8 ; 
CONST 

PI=3. 141592454; 



SHIP=RECORD 



CLASS: 


3TRINGI18]? 


NAME: 


STRING! 183; 


HtiLLNO: 


STRINGI8I; 


SCOURSE; 


INTEGER; 


SSPEED: 


INTEGER; 


XROS: 


INTEGER; 


YPOS: 


INTEGER; 


MAXSSPD: 


INTEGER: 


NSAM: 


INTEGER; 


SAMSPD: 


INTEGER; 


NSSM: 


INTEGER; 


SSMSPO: 


INTEGER 


END; 





MAR CH: CHAR; 

TEXT , 3LFLAG , RCTRFLAG , CONTINUE , LASTCHANGE . SU I LDIMG , DBCALLED : BOOLEAN; 
!+!FLAG , RRFLAG , TFIA6 1 , TFLAG2 , TFIAG3 , TFLAG4 , TFLAG5 . TFLAG4 , TFLAG7 : BOOLEAN 
3T0PFLAG , 3RAFFLAG . IN ITFLAG . GUITFLAG , OLDFLAG , CASE9 , CASE I . CASE2 : BOOLEAN ; 
CASESA , OLDGAME . I CPTFLAG : SGCLEAN; 

ONSET: SET OF CHAR; 

DATAFILE: FILE OF SHIP; 

SLUH I ST , SL'JGAME , 3RNH I ST , OfMattlS : FILE OF SEAL; 

ATI ME: FILE OF INTEGER; 

MAX SHIP .TIME, ORANGEMOME , 3LUEM0ME .MTARGET , DELTAT , RECNUM : INTEGER ; 

FILENAME: STRING! 15]; 

GCUS.GSPD: PACKED ARRAYU..283 OF REAL; 

QLCBXY.OLDOXY; S ACXED ARRAY! 1 . .2 f 1 . . 19 TOF SEAL; 



(S*Hf5:TMAINIT. TEXTS) 

(S$m5:TMA081.TE(TS) 

(S$I85:SE3:JH£.TE<TS) 



45 



(S$M5:MATH. TEXTS) 
(S$I#5:MOTION. TEXTS) 

( SS I #5 : ADLWCE . TEXTS) 
(S$IS5:CIRCl£. TEXTS) 
(SiI#5:CPA.TEXTS) 
(SJI#5:M0VEMENT.TEXTS) 
( S*I #5 :rtWE2 .TEXTS) 

( Sil #5 : RECENTER . TEXTS) 
<»I#5:8LINE.TEXTS) 
(S$I#5:TMAFINIT. TEXTS) 



BEGIN ( TMA ) 

«*R GETCRTS) 

GETC8TINF0; 

DBCALLED:=FALSE; 

TMAINIT; 

REPEAT 

IF OLDFLAG THEN RESUME; { reao in old oositions ) 

IF INITFLAG THEN TMAINIT; 

IF CASE8 THEN MATHFUNC: 

IF (CASE9A) AND (NOT RCTRFLAG) AND (NOT BLFLAG) THEN MATHFINC; 
IF CASE 1 THEN RECENTER; 

IF CASE2 THEN DATABASE; 

IF (CONTINUE) AND (NOT BLFLAG) THEN MOTION; 

IF (BLFLAG) AND (NOT RCTRFLAG) THEN BOTTOM IHE; 

IF (TFLAG1) AND (NOT BLFLAG) WO (NOT .RCTRFLAG) THEN MOVEMENT; 
IF ttlFLAG THEN MOVES; 

IF (TFLAG2) AND (NOT BLFLAG) .AND (NOT RCTRFLAG) THEN MOTION; 

IF TFLAG3 THEN CPA; 

IF TFLAGA THEN MOTION; 

IF (TFLAG5) AND (NOT RRFLAG) THEN ADVANCE: 

IF (TFLAG5) AND (RRFLAG) THEN CIRaE; 

IF (TFLA66) .AND (NOT BLFLAG) THEN MOTION; 

IF TFLAG7 THEN CIRaE: 

IF RCTRFLAG THEN RECENTER: 

IF QUITFLAG THEN TMAFINIT; 

UNTIL STCPPjAG; 

END. ( TM ) 

SESiENT PROCEDURE TMAIHIT; 

VAR GFLAG.GFLA61: CHAR; 

LEVELS: SETCFCttAR;' 

PROCEDURE PRESTART; 

BEGIN 

OKSET :=£ 'Y' , 'y'/N ' , '?/ 1 ; 

GOTQXY(3.8) ;CRT(ERASEOS) : 

NRITELN: 

WRITELN( ' MEMORY AVAILABLE IN WORDS : '.MEMAOAIU ; 

WRITELN; 

KRITELN( ' MOT I (S') ANALYSIS PROGRAM OPTIONS : '); 
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WRITELN; 

WRITELM' 00 YOU WISH TO RESUME AN GLDGAME (Y/N3? ') ; 
WRITELN;WRITELN; 

WRITE(' 0; 6FLA61:=GETCHAR(0KSET+tCHR(13) 3) ; 
CRT(ERASEOS) ; CRT(ERASEOS) ; 

IF 6FLAG1 IN I'YVy'l THEN OLDFLAG :=TRUE : 

END; ( PRESTART } 

PROCEDURE START; 

BEGIN 

GGTOXY(0,0) ; CRT (ERASE OS) ; 

WRITELN; 

WRITELNC ' MEMORY AVAILABLE IN WORDS: '.MEMAUAIL) ; 
WRITELN; 

WRITELNt ' MOTION ANALYSIS PROGRAM OPTIONS : ') ; 
WRITELNf' 0; 

WRITELNt' 9 Motion Analysis Program') ; 

WRITELM' i Rerun Motion Analysis Program') ; 
WRITELNt' 2 Build or Modify Data Base - ) ; 

WRITELNt' 3 Terminate Froqr am') ; 

WRITELN; 

WRITER '); 3FLAG :=GETCHAR ( LEVELS) ; 

CRT(ERASEQS) ; CRT(ERASEOS) 

END; { START 3 



PROCEDURE SETFLAGS; 

3EGIN 

CCNTINU£:=FALSE;{ 
DBCALLED:=FALSE;{ 
INITFLAG:=FALSE;{ 
OLDFLAS : =PALSE ; ( 
GLDGAME :=FALSE: { 
ELrLAG:=FALSE; { 
RRFLAG:=FALSE; { 
MMFlAG:=FALSE; C 
TFLA61:=FALSE: < 
TFLAG2 "FALSE; ( 
TFLAG3:=FALSE: ( 
TFLAG4:=FALSE; t 
TFLAGS:=FALSE; ( 
TFLAG6:=FALSE; { 
TFLAG?:=FALS£; { 
ICPTFLAG:=FALSE; ( 
CASES :=FAL$E; { 

CASE0A:=fALSE; C 
CASE!:=FALSE; ( 
CASES :^ALSE; { 

3RAFFLAG "FALSE ;t 
RCTRFjAG;=FALSE;{ 



tr-f to motion Pro# math ) 

set to true if database was called ) 

calls tmainit seg.orocedure ) 

set to true if player wishes to resume old game ) 

set to true if this is a resumoticn of an old game) 

trf to bottoraline 3 

trf to rerun } 

trf to move2 from movement 3 
trf to movement from motion } 
trf to motion from movement ) 
trf to coa from motion ) 
trf to motion from cpa ) 
trf to advance tram motion } 
trf to motion from advance 3 
tr* to circle from motion 3 
calls interceot routine 3 
calls aathfunc seg. procedure 3 
calls mathfunc sea. procedure 3 
calls rerun sea. procedure 3 
calls database seg.orocedure 3 
flag for or af mode 3 
calls recenter routine 3 
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QUITFLA6:=fALSE;{ calls traarinit seg.proceoure) 
STGPFLAG:=FALSE;C terminates tma } 

END: 

PROCEDURE INITFIG; 
m I , J : INTEGER; 

BEGIN 

FOR I:=! TO 3 DO BEGIN 
FOR J:=l TO 7 DO BEGIN 
3HI?F!GC!,J]:=FALSE; 

END; 

END; 

SHIPFIGE 1,13:= TRUE; 

SHIFFIGE4, 1 J:= TRUE; 

SHIFFIGE4,?] := TRUE; 

SHIPFIGC7,3];= TRUE; 

SHIFFIGE7.53 := TRUE; 

FOR I:=l TO 3 DO SHIPFIGE I ,43 := TRUE; 

FOR I :=2 TO 4 DO BEGIN 
SHIPFIGII,3];= TRUE; 

3H!PFIGCI,5];= TRUE; 

END; 

FOR I :=3 TO 4 DO BEGIN 
SHIPFIGU t 2h= TRUE; 

3HIPFIGEI ,63 := TRUE; 

END; 

END; 

BEGIN ( TMAINIT ) 

TIHE:=8; 

XCTR:=149; 

YCTR:=?6; 

I^XORAHGE:=«; 

HAXBLUE :=8 ; 

BLUENOVE:=8: 

0RANG£H(WE:=9; 

SCALE :=1; 

IF NOT DBCALLED THEN SETFLAGS; 

INITFIG; 

PRESTART; 

INITFLAG:=FAL3E: 

IF OLDFLAG THEN EXIT(TWlINIT) ; 

START: 

CASE GFLAG OF 

: CASE9:=TRU£; 

'1' : CASE I :=TRUE ; 

'2' : CAS£2:= T RUE: 

END; (CASE 3 

IF GFlAG = '3' T HEN 3TOFFLAG:=TRUE: 
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END; ( TTOINI? } 

SEGMENT PROCEDURE RESUME; 

m 

ENGW , SOLD , ONCW , GOLD : FILE OF REAL; 

MISC: FILE OF INTEGER; 

J: INTEGER; 

PROCEDURE MSG; 

BEGIN 

GOTGXYC8 ,3) ; CRT(ERASEOS) ; 3OTaXY(0,3); 

WRITELNC ' UNABLE TO RESUME AN OLDGAME - DATA NOT AVAILABLE ') ; 
WRITELN; 

WRITELN( ' MAKE SURE THE CORRECT DISK IS IN DRIVE 32 ! ') ; 

FOR J:=l TO 3080 DO; 

INITFLAG:=TRUE; 

OLDFLAG:=fALS£; 

EXIT(RESUME) ; 

END; 



BEGIN 

J:=l; 

<»HD 

RESET! 8NCW, ' 35 : OLD 1. DATA') ; 

IF (IORESULT O 8) THEN MSG; 

tt$W) 

WHILE NOT EOF(ENON) DO BEGIN 
3XY[l,J]:=eNOW A : GET(ENG3) ; 
3XYt2,J3:=SNOW A ; GET(SNCW) ; 
GCUSI JI ;= BNGW A ; GET(8N0W) ; 
GSFDCJ];= 3NCW A ; GET(ENCH); 

END; 

MAXBLUE :=>J- 1 ; 

CLOSE! ENOW, PURGE) ; 

J:=i; 

RESET (SOLD, '35:0LD2.DATA') ; 

IF (IORESULT O 0) THEN MSG; 

0-SIt*} 

WHILE NOT EOF(BOLD) DO BEGIN 
QLDBXYt 1 , J] ;=30LD A ; GET (BOLD) ; 
OLDBXYt 2 , J j ;=8CLD A ; GET ( BOLD) ; 
J-.-JH; 

END; 

CLOSE ( BOLD, PURGD ; 

J;«l; 

GESIHO 

RES£T f CNGW, '35:0LD3.DATA') ; 

IF (ICRESULT O 9) THEN MSG; 

(»I +*> 
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WHILE NOT EOF(CNCW) DO BEGIN 
aXYU,J]:=ONCW A ; GET(GNCW); 
0XYE2,J] :=ONOW A ; GET(CNCW); 

J;=J+1; 

END; 

MAXCRANGE:=J-1; 

CLOSE (QNCW, PURGE) ; 

J:=l; 

<«I-i) 

RESET (GOLD, , #5:0LD4.DATA') ; 

IF (I ORE SLIT O 3) THEN MSG; 

(ttl+i) 

WHILE NOT ECF(OCLO) DO BEGIN 
CLDOXYt 1 . J] ;=OCL!>' ; GET (GOLD) ; 
OLDOXYI2,J];=OOLD A ; GET (CHILD) ; 
J:=J+1; 

END; 

CLOSE (OGLO,PURGD : 

CttHO 

RESETCHISC, '45:GLD5.DATA') ; 

IF (ICRESULT <> 3) THEN MSG; 

(3s$I+J) 

TIME:=MISC A ; GET(MISC); 
BLUEMPJE:=MISC A ; GET (MI SC) ; 
QRANGEMCUE:=MISC A ; 

CLOS£(MISC,PURGD ; 

REWRITE(CRNHIST, '*4:GRN60LD.DATA') ; 
BLFLAG:=TRUE; 

CONTINUE ;=TRUE; 

OLDFLAG ;=f : ALS£ ; 

GLDGAME :=TRl)E ; 

SCALE:=1; 

XCTR:=148; 

YCTR:=?6; 

RENRITEOLUHIST. '44:BL'JE0LD.0ATA') ; 
INITTURTLE; TEXT:=fALSE; 

END; 



(i$G+i) 

SEGMENT PROCEDURE DATABASE; 

( PROGRAM TO USE RANDOM ACCESS DISK FILES ) 

C AND TERMINAL-INDEPENDENT SCREEN CONTROL. } 

CONST 

CLASSLEN= !8 ;NAMELEN= !8 ; HULLNGLEN=8 ; SC0URSELEN=3 ; SSPDLEN=2 ; 
XPOSLEN=3 ; YPOSLEN=3 ;MSPDLEN=4 ;I*)SLLEN=2 : 

FUNCTION YES; BOOLEAN; 

BEGIN 

YES:= GETCHARd'Y'/y'/N'/n'l) IN [' Y'.YI; 

END; 
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PROCEDURE .MENU; 

VAR SUCCESSFUL: SCQLEfW; 
3EGIN 



GQTGXY(0,8) ; CRT(ERASEQS) ; 8OTOXY(0,2); 
WRITELNU TMA DATABASE MAIN MENU '); 

WRITELN; 

WRITELNU (A) View database'); 

NRITELNU (S) Change database '); 

WRITELNU (0 Build new game database ') ; 

WRITELNt ' (Q) Quit '); 

HRITELN; 



CH:=6ETCWR([ / A , /a , , , 3 , ) , b , /C , /c'/D , , , d , /Q , .. , q , 3); 



GOTQXY(0,0) ; CRT ( ERASEOS) ; 



IF CH IN I'CVc'3 THEN 
BUILDING:=TEUE 



ELSE 

3UILDING:=FALSE; 
END; { Menu ) 



PROCEDURE ZEROREC(VAR REC: SHIP) ; 
BEGIN 

HUH REC DO 



BEGIN 
CLASS 
N*E:="; 
HULLNO:="; 
SCOURGE :=0; 
SSFEED:=0; 
XPOS :=0 ; 
YPOS:=$; 
MAXSSPO:=0; 
NSAM:=0; 
3AMSPD:=0; 
NSSH:=9; 
SSMSPO:=0; 
ENO; 



PROCEDURE VAL!DATE(VAR REC: SHIP); 

( } 

C } 

( TRIES TO DETECT PND ZERO AN ^INITIALIZED RECORD ) 

C NO cmt IF ALL FIELDS ARE VALID. ) 

C ) 

( ) 

PROCEDURE CHECK (VAR 3: STRING; MAXLEN: INTEGER) ; 

LABEL 1; 

VAR I: INTEGER; 
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BEGIN 

IF LENGTH (S) > MAXLEN THEN GOTO 1; 

FOR I:=l TO LENGTH (S) DO 
IF NOT (StlJ IN [' '..'}')) THEN GOTO I; 
EXIT! CHECK); { STRING IS OK ) 

1; ZERCREC(REC) ; EXITWALIDATD; 

END? ( CHECK ) 

3EGIN { VALIDATE ) 

WITH REC DO 
BEGIN 

CHECK I CLASS , CLASSLEN) ; 

CHECK ( HULLNO , HULLNOLEN) ; 

END; 

END; { VALIDATE ) 



PROCEDURE SHOWRECIREC; SHIP); 
BEGIN 

G0TQXY(8,2) ; CRT(ERASEOS) ; 
WITH REC DO 
IF NOT BUILDING THEN 
BEGIN 

NRITELNI 'Class: 
WRITELNi'Hul I no.: 
WRITELNI'Max speed: 
NRITELN('i) SAM: 
NRITELNI'SAM Speed: 
WRITELNI'H SSM: 
NRITELNI'SSM Speed: 
END 
ELSE 
BEGIN 

NRITELNI 'Class: 
NRITELNI'Name: 
WRITELNI'Hul ! no.: 
WRITELNI' Course: 
NRITELNI 'Speed: 
WRITELNI'X Coordinate 
NRITELNI'Y Coordinate 
»RIT£LN('Max speed: 
WRITELNI'* SAM: 
WRITELNI 'SAM Speed: 
HRITELNC'* SSM: 
WRITE1NI' SSM Speed: 
EM); 

END: 



'.CLASS); 

'.HULLNO); 

' .MAXSSPO) ; 
'.NSAM) ; 

' .SAMSFD) ; 

' ,NSSM) ; 
'.SSMSPD); 



'.CLASS); 

',NAMD; 

' .HULLNO) ; 
'.SCCURSD; 
' ,3SPEED) ; 

' .XPOS) : 

' ,YPOS) ; 

' .MAXSSPD) ; 
' .NSAM) ; 

' .SAMSFD) ; 

' .NSSM) ; 

' .SSMSPD) ; 



PROCEDURE CHANGERECIVAR REC: SHIP; S3PDLEN .MSPDLEN .MiSLLEN .NAMELEN , 3C0URSELEN , 
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XPOSLEN , YPOSLEN : INTEGER) ; 

BEGIN 

IF BUILDING THEN 
BEGIN 



SOTOKYO, 15) ; CRT!ERA$£GS) ? 

PROMPTAT! 15, '(Press return Tor no chance)'); 
END 
ELSE 
BEGIN 



GOTOXY(8, 12) ; CRT(ERASEOS) ; 

PHCMPTAT!12, '(Press return for no chance)') 



END; 

WITH SEC DO 
IF NOT BUILDING THEN 
BEGIN 

G0T0XY<3 , 14) ;WRITELN(' ALL NUMERICAL INPUT ARE INTEGERS! ! ')? 



WRITE('Class: 
WRITE('Hull no.: 
WRITE( 'Max speed: 
WRITE!'# SAM: 
WRITE! 'SAM Speed: 
WRITE!'# S3M: 
WRITE! 'SSM Speed: 



') : GETSTR ING ( CLASS , CLASSLEN) : WRITELN; 
'); GETSTR I NG(HULLNO.HULLNOLEN) ; WRITELN; 
') ; GETINTEGER(MAXSSPD , SSPDLEN) ; WRITELN; 
') ; GETINTEGER(NSAM .MSLLEN) ; WRITELN; 

') ; GET I NTEGER ( SAMSPD .MSPDLEN) ; WRITELN; 

') ; GETINTEGER(NSSH,MiSLLEN) ;WRITELN; 

') ; 6ETINTEGER(SSMSPD, MSPDLEN) ;WRITELN; 



END 

ELSE 

BEGIN 

GOTGXY(0, 17) ;WRITELN(' ALL NUMERICAL INPUT ARE INTEGERS!! ') ; 
WRITE! 'Name: '); GETSTRING(NAME.NAMELEN) ; WRITELN; 



WR!TE('Course: (9-360) ') ; 



.REPEAT 



GETINTEGER! SCDJRSE , 3C0URSELEN) ; 

UNTIL (SCOURSE <= 368) AND (SCOURSE > 3);WRITELN; 
WRITE! 'Speed: (9-Maxsod) '); 

REPEAT 

GETINTEGER(SSPEED, SSPDLEN) ; 

UNTIL (SSPEED >= 3) AND (SSPEED <= HAXSSPD ) ;WRITELN; 
WRITE! 'X Coordinate: (8-188) '); 

REPEAT 



8£T!NTEGER(XPOS, XPOSLEN) : 

UNTIL! XFOS >=8) ANO (XPOS (=180) ;WRITELN; 
WRITE! 'Y Coordinate: !3-!08) '); 

REPEAT 

GET INTEGER (YPOS , YPOSLEN) ; 

UNTIKYPOS >=8) ANO (YPOS <= 188) ; WRITELN: 
END; 

END; ( CHANGEREC ) 



PROCEDURE NEWFILE; 
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WAR SUCE SSFUL : BOOLED; 

IREC,MAXREC: INTEGER; 

BEGIN 

8UILDING:=FAL$E; 

CLOSE! DATAF I LE .LOCK) ; { IN CASE IT'S ALREADY OPEN ) 
tt*I-<> 

REPEAT 

GGTOXY(0,1); CRT(EPASEQS) ; 

3OTOXY(0,2) ; 

WRITELN! ' TMA Master datafile is : BLUEMASTER ') ; 

XRITELNt' TW Game datafile is : SLUEGAME '); 

WRITELN!' For new database use different name. ') ; 
?R0MPTAT<3.' File Name: '); REAOLN(FILENAMD ; 

RESET (DATAFILE, FILENAME); ( TRY TO OPEN AN OLD FILE ) 
SUCESSFUL := (ICRESULT=8) ; 

IF NOT SUCESSFUL THEN ( START A HEN FILE? ) 

3EGIN 

PRGMPTAT( 11, 'Start a new file ? '); 

IF YES THEN 
BEGIN 

REWRITE (DATAFILE, FILENAME : 

FROMPTAT( 12. 'Reserve how many records ? '); 
READLN(MAXREC) ; 

SEEX(DATAFILE,MAXREC) ; 

2ERCREC(0ATAFILE A ) ; 

<»I-» 

PUT (DATAFILE) ; 

««♦» 

IF (I0RESULTO8) OR ECF(DATAFILD THEN 
BEGIN 

PROMPTAT ( 14, 'Not enough 'com. Press return ') 
READLN; 

SUCESSFUL :=FAL$E; 

END 

ELSE 

BEGIN 

( INITIALIZE CONTENTS OF FILE ) 

FOR IREC:=8 TO MAXREC DO 
BEGIN 

SEEK ( DATAFILE, I REC) ; 

POT (DATAFILE) ; 

END; 

CLOSE(DATAF!LE,LOCK) ; ( LOCK IT IN PLACE ) 
RESET(CATAFILE.FIL£NAMB ; 

SUCESSFUL := (I0RESULT = i) ; 

END; 

END; 

END: 

UNTIL SUCESSFUL; 
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mm) 

SEGNUi:— 1; 
LASTCfMNGE :=FALSE ; 
MENU: 

END; 



PROCEDURE CHANGE; 

BEGIN 

«$I-30 

REPEAT 

PROiPTATt 2, 'Change which record ? '); 

READLN(RECNUH) ; 

UNTIL IORESULT=0; 

(SSI+5) 

SE£K(DATAFILE,RECHUH) ; 

GET (DATA? 5 LD ; 

IF EOF(DATAFILE) THEN ( EXTENDING FILE ) 2ER0REC( DATAF ILE A ) ; 
UALIDATE(EATAFILE A ) ; 

3HCWREC( DATAFILE') ; 

CHANG£REC( DATAF I LE A , 3SPDLEN .MSPDLEN , M1SLLEN .NAMELEN , 3CCURSELEN , 
XPOSLEN.YPOSLEN) ; 

S£EX< DATAF ! LE , RECNUH) ; 

(x$I-3) 

PUT ( DATAF I L£) ; 

(K$I+*) 

IF (I0RESULTO8) OR EOF (DATAF I LD THEN 
BEGIN 

G0T0XY(8.28) ; 

WRITELN(CHR(7) /UNABLE TO EXTEND FILE, NO DATA WRITTEN') ; 
WRITELNCUse Filer K(runch command to .naKe eoace after file.'); 
END; 

LASTCHANGE:=TRUE; 

END; 



PROCEDURE UIEN; 

BEGIN 

mm) 

REPEAT 

?RQiPTAT(2/Uiew wnich record ? '5; 
SEADLN(PECNUM) ; 

UNTIL I0RESULT=8; 

mm) 

SEEK( DATAF I LE, RECNUM) ; 

GET (DATAF I LD ; 

IF EOF (DATAFILE) THEN 
BEGIN 

GCT0XY(8,4) ; 

WRITE( 'Record '(SEONIM,' not in file.'); 
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END 

ELSE 

3EGIN 

UAL ICATE( DATAFILE*) ; 
SHCWREC! DATAFILE') ; 
END; 

LASTCHANGE :=FALSE ; 

END; 



PROCEDURE NEXT; 

{ VIEW OR CIANGE NEXT RECORD ) 

BEGIN 

RECNUM:=RECNUM+ 1 ; 

SEEK( DATAF I LE , RECNUH) ; 

6ET(DATAFILD ; 

IF EOF (DATAFILE) THEN 
BEGIN 

ZEROREC(DATAFiLE A ) ; 

IF NOT LASTCHANGE THEN 
BEGIN 

GOTGXY(fM) ; 

WRITE! 'Record ',SECNUM/ not in File.'); 

EX IT (NEXT) ; 

END; 

END; 

GGTQXY(8,1) ; WRITE('Record number ',RECNUfl; 

UAL I DATE ( DATAF I LE A ) ; 

SHCWREC( DATAFILE') ; 

IF LASTCHANGE THEN 
BEGIN 

CHANGEREC ( CATAF I LE A , SSPDLEN , MSPDLEN .MiSLLEN . NANELEN . 3COURSELEN , 
XFQSLEN.YPOSLEN) ; 

SEEK ( DAT AF I LE , RECNUM) ; 

<S$M> 

PUT (DATAFILE) ; 

(*SI+*) 

IF (I0RESULTO9) OR EOF (DATAFILE) THEN 
BEGIN 

GOTOXY(9,29); 

WRITELN(CHR(7) /LIABLE TO EXTEND FILE, NO LATA WRITEN'); 
WRITELN('Use Filer K(runcn ccsmand to .itake eoace after file. 
END; 

END; 



PROCEDURE INSTRUCTIONS; 
UAR 

CH ; CHAR: 
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BEGIN 

WRITELN!' MASTER ThA DATABASE EDITOR ') ; 

WRITELN; 

WRITELN!' This module of the program allows you (the user) to '); 
WRITELN!' VIEW or CHANGE an existing data base. '); 

WRITELN!' In addition you may create a new data base by using the '); 
WRITELN!' FILE command/): 

WRITELN; 

WRITELN!' You begin by entering the FILE SAME of the data your 0; 
WRITELN!' interested in or the FILE NAME of your MEW data base. '); 
WRITELN; 

WRITELN!' For examole; the file QRANGEMASTER contains the present 0; 
WRITELN!' library of Oranoe ships in the Master TMA data base. '); 

WRITELN!' Likewise, for the file 3LUEHASTER. ') ; 

WRITELN; 

WRITELN; 

WRITELN; 

WRITELN; 

WRITELN!' < HIT SPACEBAR TO CONTINUE > 0; 

READ(KEYECARO,CH) ; 

END; ( INSTRUCTIONS ) 

PROCEDURE HEL°; 

3E6IN 

SGTOXYO.T) ; CRT(ERASEOS) : 

WRITELN!' i HELP : Explanation of options i ') ; 

WRITELN; 

WRITELN(' Wiew : To look at the selected database '); 

WRITELN!' Ohange : To change any/all elements of the selected database'); 

WRITELN!' N)ext ; To page forward to the next record ') ; 

WRITELN!' F)i!e : To close the file being worked on and start another'); 

WRITELN!' R)eturn : To return to the master menu ') ; 

WRITELN!' H)elp : To display this table of explanations '5; 

WRITELN!' ©uit : To terminate the database manipulation module ') 

END; 



BEGIN { .MAIN PROGRAM ) 
CLOSE ( 8LUGAME .LOCK) ; 

CLOSE < BL UH I ST . LXK) ; 

CLOSE! CRNGAME. LOCK) ; 

CLOSE ( ORNH I ST . L OCX) ; 

CLOSE! AT IME, LOCK) ; 

CAS£2:= FALSE; 
INITFLAG:=TRUE: 

30TCKY(8,9) ; CRT(ERASEOS) ; 
INSTRUCTIONS; 

NEWFILE; 

DBCALLED :=TRUE ; 
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REPEAT 

IF NOT BUILDING THEN 

PRCMPTAT ( 8 , ' ) DEMASTER : V(iew, COiange, N(ext, F(ile. R(eturn, H)elp, Q)uit') 
ELSE 

PROMPTAT ( 8 , ' DDEBUI LDER : Vtiew, Cthange, Ntext, F(ile, RCeturn, HJelp, Q(uit'); 
CH:MOGHAR<['NVn VF'/f'/V'/v' /C'/c' ,'R','r' ,'H' ,'h','Q'/q']) ; 
CRT(ERASEOS) ; 



CASE CH OF 


'N','n' 


NEXT; 


'FVf' 


NENFILE; 


'V',V 


VIEW; 


'C','c' 


CHANGE; 


'R','r' 


MENU; 


'H'.'h' 


HELP; 



END; 

IjNTIL CH IN ['Q'/q'Jj 
CLOS£(DATAFILE,LOCK) ; 

PROMPTATU2, 'FINISH DATA BASE MANIPULATION...'); 
END; 



SEGMENT PROCEDURE MATHFUNC; 

VAR 

INDEX; INTEGER; 

L: CHAR; 

FNAME: STRING! 153 ; 

GN«1£: STRING! 10 J; 

GCOURSE , SSPEED , GX , GY : REAL; 

SUCCESSFUL: BOOLEAN; 

PROCEDURE MSTART; 

CAR 

'SUCCESSFUL: BOOLEAN; 

BEGIN 

SUCCESSFUL :=TRt!E ; 

IF DECALLED THEN FNAME :=F RENAME 
ELSE 
REPEAT 

DBCALLED ;=TRUE ; 

GOTOXY(8,8) ;CRT (ERASEOS) ; 
sjOTOXY f 9 ,2) ; 

IF NOT SUCCESSFUL THEN 

WRITELNt' That File Name is not on this disk! ! '); 

WRITELN; 

WRITELNC ' MEMORY AVAILABLE IN WORDS: '.MEMAVAIL) ; 
NRITELN;WRITELN; 

NRITELN!' Default TMA game file name is BLUE GAME ') ; 
WRITELNC ' If you have previously saved another game '); 
WRITELNt' database you wish to use type that file name in. 
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PRGMPTATU2,' File Name: ') ;READLN<FNAME) ; 
FILENAME:=FNAM£; 

«SHf) 

RESET( DATAFILE, FN#1E) ? (TRY TO OPEN AN OLD FILE) 
SUCCESSFUL :=< I0RESULT=9) ; 

«$I+« 

UNTIL SUCCESSFUL; 

CLOSE (DATAFILE, LOCK) ; 

END; 

PROCEDURE MINIT (MAR REC: SHIP) ; 

PROCEDURE TRANSFORM; 

(JAR 

TViOPI: REAL; 

BEGIN { TRANSFORM > 

TOOPI:=2.03£PI; 

5X:= GX52.8; 

GY :■= GYXI.92; 

GCOURSE:=GCOURSK(PI/1S0.9) ; 

WHILE GCOURSE ) TViOPI DO 
BEGIN 

GCOURSE := (GCOURSE - TVIOPI); 

END; 

END; ( TRANSFORM } 

PROCEDURE INITDISP; 

'JAR X,Y: INTEGER; 

BEGIN ( INITDISP } 

PENCCLOR (NONE) ; 

X:=ROUND(GX); 

Y:=ROUND(GY) ; 

KOUETO(X,Y); 

DfcmOCKCSHIPfIG ,2 ,3 ,3 , 7 ,3 ,X ,Y , 18) ; 

NUMBERS, Y, INDEX); 

END; { INITDISP ) 

PROCEDURE SETARRAY; 

BEGIN ( SETARRAY > 

SOUS! INDEX' ;=GCOURSE; 

GSPDt INDEX! :=GSPEED; 

BXYI1, INDEX] :*©; 

3XYIS, INDEX] :=GY; 

3L'JGAME A :=GX ; PUT ( 8LUGAME) ; 

BLUGAME* :=GY ; PUT ( BLUGAME) ; 

9LUHI3T A :=GX;PUT(BLUHIST) ; 
3L0HIST*:-€Y;PUT(BLUHIST); 

END? ( SETARRAY ) 

BEGIN { MINIT > 
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INITTURTLE; TEXTMODE ; TEXT:= TRUE; 

R£CNUM:=8; 

RESET (DATAFILE. FNAME) ; 

REJmRITE(BLUHI 3T, “4 iBLUEOLD .DATA') ; 

REWRITE (8LUGAME, 'I5:BLUEN0H.DATA') ; 

WHILE (NOT EGF(DATAFILD) AND (RECNUM < 18) DO BEGIN 
SEEK (DATAFILE. RECMJM) ; 

GEKDATAFILD ; 

WITH REC DO 

IF (LENGTH(CLASS) > 1) AND (MAX3SPD > 0) THEN BEGIN 
INDEX :=RECNUM+1; 

NWBLU£:= INDEX; 

GN«1E:=m-E; 

GCOURSE:=SCOURS£; 

GSPEED:=5SPEED; 

GX:=XPOS; 

GY:=YPOS; 

TRANSFORM; 

SETARRAY; 

INITDISP; 

END; 

RECNLM:=RECNUM+1; 

END; 

CLOSE(DATAFILE,LOCK) ; 

CLOSE (8LUGAME, LOCK) ; 

3LUHIST A := -????; PUT(BLUHIST) : 

GRAFMODE; TE(T := C ALSE; 

BLUEMOLf :=8L'JEM0VE + 1; 

CASE2A:=TRU£; 

8LFLAG:=TRUE; 

EXIT(MATHFUNC) ; 

END; ( MINIT ) 



PROCEDURE GETDATA; 

■JAR J: INTEGER; 

BEGIN 

REWRITE(0RNHI3T, 'MiORNGQLD.DATA') ; 

J:-1; 

0f$I~0 

RESETtORNGFNE, 'SSsOf^aiCW.ZATA') ; 

SUCCESSFUL := <I0RESULT=9) ; 

IF NOT SUCCESSFUL CHEN EXIT(GETDATA) ; 
a$i+*) 

WHILE (NOT EGF(ORNGAHE)) AND (J <= 18) DO BEGIN 
i3XY[l,J]:=ORNGAME'‘; 

GET(ORNGAME) ; 

OXY 12 , J 3 :=ORNGAME A ; 

QRNHIST A :=GXY[ l.J); POT(GRNHIST) ; 
CRNHIST A :=OXYE2,J]; PUT(ORNHIST); 

J:=J + 1; 
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GET(OFNGAME) ; 

END; 

MAXORANGE := J - 1; 

QRNHIST A := -9999; PUT(ORNHIST) ; 

CLOSE(CRNGAME,LGCK); 

END; 

PROCEDURE FIRSTMCVE; 

BEGIN { firstmove ) 

CONTINUE ;=TRUE; 

TEXTNODE; TEXT :=TRUE: 

SUCCESSFUL :=TRUE; 

REWRITECATIME. , #4:TIHE.DATA / ) ; 

ATIME A :=TIME; PUT(ATIME) ; 

REPEAT 

GOTOXY<3,3>; CRT(ERASEOS) ; 

G0T0XYC8 ,3) ; 

WRITELNC ' ! ! ! FOLLOW THESE INSTRUCTIONS ! ! ! ') ; 

WRITELN; 

WRITELN; 

IF NOT SUCCESSFUL THEN 

WRITELN(' * ERROR HAS OCCURED WHILE TRYING TO READ DATAFILE CN DISK 42 V) 
WRITELN; 

WRITELNC' 1. REMOVE GAME DISK FROM DRIVE 4 2 '); 

WRITELN; 

WRITELNt' 2. EXCHANGE DISKS WITH OPPONENT '); 

WRITELN; 

WRITELNt' 3. PLACE OPPONENT'S UPDATED GAME DISK IN DRIVE 4 2 0 ; 

WRITELN; WRITELN; 

WTHTELNt' ( PRESS RETURN WHEN READY > ') ; 

WRITELNjREAOLN; 

GET DATA; 

UNTIL SUCCESSFUL; 

QRANGEMOVE ;=ORANGEMOVE ♦ !; 

8LFLAG;=TRUE; 

END; 



PROCEDURE MENUM; 

BEGIN 

TE<TMGDE; TEXT := TRUE; 
GKSET^rA'VaV'SVbVQ'/q'I; 

GOTOXY(9,3) ;CRT(ERASEOS) ; 

?R(M?TAT(8,'> You have the foliowinQ choices '); 
GOTOXY(8,3); 

NRITELN(' A) Return to DATABASE { for changes ) ') ; 
XRI7ELN(' 3) Continue «ith the game'); 

WRITELN; 

HRITEUK' Q)uit (terminates orogram} ') ; 
L:=GETCHAR(OKSET) ; 

CASE L OF 
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'AVi': CASE2:=TRUE; 

7 9 7 , 7 b 7 : FIRSTWM; 

7 QYq 7 ; EXIT(TMA) ; 

END: 

END; 

BEGIN ( NATHFUNC ) 

(»R TliRTLEGRAPHICSJ) 

(m THESIS830 
CASES .‘-FALSE; 

TIME:=8; 

IF NOT CASE0A THEN HSTART; 

IF NOT CASE0A THEN iilNIT(DATAFILE') ; 
CA3E9A:=FALSE; 

REPEAT 

CKSET :=E 7 '3; 

L:=6E7CHAR(0KSET ♦ ICHR(27) .CHR<3) ,CHR(2I) 3) ; 
IF L=CHR( 8) THEN L:= 7 D 7 ; 

IF L=CHR(21) THEN L:= 7 U 7 ; 

CASE L OF 
'll 7 : BEGIN 

UPSCALE; 

BLFLAG:=TRUE; 

CASE8A:=TRUE; 

EXIT (MATHFUC) ; 

END; 

'D' : BEGIN 

DOWNSCALE; 

8LFLAG:=TRUE; 

CflSE0A:*TRUE; 

EXIT(MATHFUNC) ; 

END; 

7 7 : BEGIN 

RCTRFLAG:=TRUE; 

CA$E8A:=TRUE; 

EXIT (HATHFUNO ; 

END; 

END; 

UNTIL L = CHR(27) ; 

MENUM; 

END; 

SEGMENT PROCEDURE HOTICN; 



VAR 

MFLAG1: BOOLEAN; 



PROCEDURE DI3TSPD(DX,DY : REAL; VAR DIS7,3PD: READ; 
BEGIN 

DIST:= SORT ( SCR \DX) + SOR(DY)); 

SPD;= DIST / DELTAT * 30; 
end; 
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FUNCTION DEGREES (DX.DY; REAL) : INTEGER; 

CONST ERR = 8.31; 

VAR VALUE: INTEGER; 

3EGIN 

IF (OX < (9+EHR) ) AND (DX > (8-ERR)) THEN BEGIN 
IF (DY < (9+ ERR)) ANO (DY > (8-ERR)) IREN DEGREES 

IF DY > 3 THEN DEGREES := 188; 

IF DY < 3 THEN DEGREES := 268; 

EXIT(DEGREES) ; 

END; 

IF (DY < (8+ERR)) AND (CY > (8-ERR)) THEN SEGIN 
IF DX > 8 THEN DEGREES := 278; 

IF DX < 3 THEN DEGREES := 398: 

EXIT( DEGREES) ; 

END; 

VALLE := ROLHDU38 / PI ( ATAN (DX/OY)); 

IF ABS CALL'D O VALUE THEN BEGIN 
IF DX < 9 THEN DEGREES := 188 + VALUE; 

IF DX > 3 THEN DEGREES := 368 ♦ VALUE; 

END 

ELSE BEGIN 

IF DX > 8 THEN DEGREES:- !83 ♦ 'VALUE; 

IF DX ( 9 THEN 0EGREE3:= VALUE; 

END; 

END; 

PROCEDURE DISPLAY; 

VAR J.X.Y: INTEGER; 

SEGIN 

PENCOLOR(NONE) ; 

FOR J:= ! TO IAXBLUE DO SEGIN 
X:=ROlND( (HXYE 1 , J3-XCTR) /SCALD ♦ 140: 

Y : =RCUND ( ( BXY 1 2 , J I -YCTR) / SCALD + 96 ; 

NOVETO(X.Y) ; 

DRAW8L0CX(SHIPFIG,2,3,3,7,3,X,Y,19) ; 

NUNBER(X,Y,J) ; 

END; 

FOR J:=l TO HAXORANGE DO BEGIN 
X:=ROUND( (QXYI 1.J3-XCTR) /SCALD + 148 ; 

Y := POIND ( ( QXYI 2 , J ] -YCTR) /SCALE) +96 ; 

MCVETG(X.Y) : 

DRAi«LOCX(3HIPFIG,2.8,3.7,3.X,Y,5); 

LETTER(X,Y,J) ; 

END; 

GRAFNOCE;TEXT :=FALSE; 

END; 



PROCEDURE YCURSIDE(T5T: CHAR;UAR X.Y: INTEGER); 
VAR J: INTEGER: 



XX.YY: REAL; 

BEGIN 

J:=0RD(TGT)-GRD('8') ; 
J:=J+1; 

X;=R01M)(BXYU,J3) ; 



Y:=RQLMD(BXYC2.J]) ; 

END; 

PROCEDURE OTHERSIDECTGT; CHAR;VAR X,Y: INTEGER); 

VAR J: INTEGER: 

XX.YY: REAL; 

BEGIN 

IF TGT IN C'a'./j '] THEN J :»QR0<T6T> -0RD< ' a'> ELSE 
j:=ORD(TGT)-ORD('A') ; 

J:=J+1; 

X:=RQtMKQXY[l,J3) ; 

Y:=ROUND(OXY[2,J]) ; 

END; 

PROCEDURE RANGE; 

VAR 

X1,X2,Y1,Y2,DIST.X,Y,I: INTEGER; 

DI STANCE , DELTAX ,C£LTAY : REAL; 

TARGET 1,TARGET2: CHAR; 

SEGIN 

X:=8;Y:=8; 

GRAFYOOE: TEXT:=FALSE; 
fflSEU-1'9' ,'b' ..'J' ,'z' 

PENCGLCR(WHITE) ; 

30XSTRIN6(3,2/ RANGE; LETTER / NUMBER OF 1ST SHIP ') ; 

TARGET l!=GETCHAR(CKSET); 

IF TARGET 1 !N[ , 9'..'9']THEN YCURSIDE (TARGET 1 .X, Y) ELSE OTHERS I DE (TARGET 1 , X , Y) 
X1:=X; Y!:=Y; 

3flKSTR!N6<3,2,' RANGE: LETTER / NUMBER OF 2ND SHIP '); 

TARGET2 :=5ETCHAR( OKStT) ; 

CLEAR80X; 

IF TARGETS INC'8'..'9'3THEN YOURSI DE (TARGET 2 ,X , Y) 

ELSE OTHERS I CE ( TARGETS ,X ,Y) ; 

X2:=X: Y2:=Y; 

DELTAX := X2 -XI: DELTAY:= Y2 - Yl: 

D I STANCE :=SGRT(SQR( DELTAX / 2.3) + S8R(DELTAY / !.?2>>; 

DI3T :=ROUND(DISTANCE) : 

X 3 :=RCIND< (X 1-XCTR) /SCALE) + 149 ; 

Y I :=ROlNO( (Yl-YCTR) /SCALD +94; 

MOCETQ(Xl.Yl) ; 

PENCCLOR(WHITE) ; 

X2:=RCUND( (X2-XCTR) /SCALE) + 148 ; 

Y2:=SGUNO( ( Y2-YCTR) /SCALE) +94 : 

M3VETO(X2.Y2) ; 

FENCQLCR(NOND ; 
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FOR I := 1 TO 2980 DO BEGIN 
2ND; 

30T0XY! 0 , 9) ; CRT ( ERA3E0S) ; 

30TGXY!8,S); 

NRITELN!' The distance From TARGET 1/ to ' JAR6ET2,' is 
NRITELN; 

NRITELN!' ',DIST,' MILES! '); 

NRITELN :WR I TELN :WR I TELN : 

NRITELN!' < PRESS RETURN TO CONTINUE > '); 

TEXTNOOE ;TEXT :=TRUE : 

SEAOLN; 

END; 



PROCEDURE INTERROGATE: 

VAR COURSE, X,Y,TGT: INTEGER; 
TARGET: CHAR; 
SPO.DX,DY,DIST: REAL; 



PROCEDURE MESSAGE2; 

BEGIN 

G0TQXY(8,9); CRT(ERASEOS) ; 

G0T0XY(8,o) : 

NRITELN!' The course and speed of ship N ', TARGET,' is : ' 
NRITELN; 

NRITELN!' ', COURSE,' Decrees ', ROUND! SPO) ,' Knots ') ; 

NR I TELN ;WR I TELN ; WR I TELN ; 

NRITELN!' < PRESS RETURN TO CONTINUE > ') ; 

TEXTNOOE: TEXT :=TRUE: 

READLN; 

END; 

PROCEDURE MESSAGE I: 

BEGIN 

TEXTMODE; TEXT := TRUE; 

GOTOXY(9,3) ;CRT!EPASEOS) ; 

G0T0XY!8,S) ; 

NRITELN!' Not enough data to ccmoute course / speed '); 
NRITELN:NRITELN:KRITELN; 

NRITELN!' < PRESS RETURN TO CONTINUE ) ') : 

READLN: 

EXIT ! INTERROGATE) ; 

END; 



BEGIN ! interrogate ) 

If GRANGEMOVE <= 1 THEN MESSAGE 1: 

X:=8; Y:=8; 

QKSET :=C '8' 'A' . . ' J' , 'a' . . ' j ; 

3AAFM00E; TEXT :=FAISE; 

S0XSTRING(3,2,' INTERR: ENTER LETTER / NIH8ER OF SHIP '); 
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TARGET :=GET CHAR ( OKSET) : 

CLEARGOX; 

IF TARGET IN ['«'..'?'3THEN BEGIN 
TGT :=OSD(TARGET) - CROC'S') ; 

TGT :=TGT + 1; 

DX:=0LD8XY[1,TGT] - 6XYI1 JGTI; 

DY:=QLDBXYI2,TGT] - 9XY12JGT]; 

END 

ELSE 3EGIN 

IF TARGET IN I'a'./j'] THEN TGT :=ORO(TARG£D -CROC 'a') ELSE 
TGT :=ORO(TARGET) - CRD('A') : 

TGT :=TGT + 1; 

DX:=0L30XYEI.TGTj - OXYI1JGT]; 

0Y:=CLDGXY[2,TGT] - aXYI2,TGT]; 

E?iO: 

DX:=OX / 2.3; 

DY :=CY / 1.92; 

TEXTMODE; TEXT :=TRUE; 

COURSE :=OEGREES( OX , OY) ; 

DIST$PD(DX,DY,DIST,3PD) ; 

MESSAGES; 

END; 

PSGCEDURE 3TARTIT; 

BEGIN 

IF SRAFFUG THEN BEGIN 
GRAFMOOE; 

TE<T:=FALSE; 

SRAFFLAG:=FALSE; 

END 

ELSE BEGIN 
TEXTMODE: 

TEXT:=TRUE; 

END; 

END; 



PROCEDURE 3T0PIT; 

BEGIN 

RRFLA6:=«,L3E; 
TECTNQOE; TEXT :=TRUE; 
3UITFLAG :=TRUE ; 

EXIT (MCTIGN) ; 

END; 

PROCEDURE MENU; 

CAR 

CH: CHAR; 

BEGIN 

37ARTIT; 

REPEAT 
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OKSET :=£ 'ft'./H'/a'./h'/Q'/q']; 

GOTGXYO .3) ;CRT ( ERASE05) ; 

GOTQXY<8,5) ; 

WRITELN(' A) Advance to next time-step ') ; 

NRITELNI' B) Oran ranee circle around a specified unit ') ; 

WRITELN(' 0 Compute range between units ') ; 

WRITELNt' D) Determine CPA { CLOSEST POINT OF APPROACH BETWEEN UNITS JO; 
WRITELNf' E) Compute and display Course and Soeed of units 0; 

WRIT£LN(' F) Check / Change movements of a unit 0; 

NRITELN(' 6) Compute Intercept from one unit to another 0; 

I’iRITELM' H) Clear screen 0; 

'wRITELN; 

WRITELNC' Q) QUIT THE IMA PROGRAM 0- ; 

XRITELN; 

WRITELNf ' [<-} Downscale display '); 

WR!TELN(' E-M Upscale display 0; 

WRITELNI'Isoace) Recenters display '); 

KRITELNf'IESC) Toggles display between text and graphics '); 
CH;=GETCWR(CKSET+ ICHR(2?) ,CHR(3) ,CHR(21) ,CHR<32) I) ; 

CRT(EPASEOS) ; 

IF CH=CHR(3) THEN CH:='R'; { left arrow > reduce scale } 

IF CH=CHR(2!) THEN CH: =, r; { right arrow > increase scale ) 

IF (CH=CHR(2?)) PM) (TEXT) THEN BEGIN 
GRAFMODE; 

TEXT :=FALSE ; 

CH-.^Z'; 

END 

ELSE IF (CH=CHR(27)) PND (NOT TEXT) THEN BEGIN 
TEXTMGDE; 

TEXT:=TRUE; 

CH:='Z'; 

END; 

CASE CH OF 

'fit'.'i'i BEGIN 

TFLAG5 :=TRUE ; 

EXIT (HOTICN) ; 

END; 

'3' ,'b': BEGIN 

TFLAG7:=TRUE; 

EXIT (HOTICN) ; 

END: 

'CYc': 

: SEGIN 

TFLAG3:=TRUE ; 

E<I7(MQTI0N) ; 

END; 

'EVe': INTERROGATE; 

'r'/i': BEGIN 

'FLAG 1: -TRUE; 

EXIT (MOTICN) ; 
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END; 

'S'/g': BEGIN 

I CPTFLAG :=TRUE ; 

3LFLAG:=TRUE; 

TFLA62 :=TRU£ ; 

EXIT(MOTICN) ; 

END; 

'H'/h': BEGIN 

INITTURTLE; 

BLFLAG:=TRUE; 

CONTINUE :=TRUE; 

EXIT(MOTICN) ; 

END; 

'R' : BEGIN 

DOWNSCALE; 

SLFLAG :=TRl?E ; 

TFLAG2:=TRUE; 

EXIT (MOT! CN) ; 

END; 

; BEGIN 
UPSCALE; 

SLFLAG :=TRUE; 

TFLA62:=TRUE; 

EXIT(MOTIGN) ; 

END; 

' ' ; BEGIN 

RCTRFLAG:=TRUE; 

TFIA62:=TRUE; 

EXIT fMOTI CN) ; 

END; 

END; 

IF (CH = 'R') OR (CH = 'I') OR (CH =' ') THEN SRAFMODE 
UNTIL CH IN i 'Q'/q' ]; 

STOPIT; 

END; 

3EGIN { .notion > 

>'X$R TURTLEGRAPHICS*) 

( m THESIS9SO 
(*$R TRANSCENDS) 

IF (7FLAG6) OR (CONTINUE) THEN DISPLAY; 

CONT:nUE;=FALSE; 

TFLA62;=FALSE; 

TR_AG4:=FALS£; 

7FLAG6:=FAISE; 

MENU; 

END; 

SEGMENT PROCEDURE CIRCLE; 
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PROCEDURE CiRCPART ; 

VAR 

X , Y ,NX ,mr , I , RANGE , RANGELEN : INTEGER ; 
RX..RY, RADIUS, THETA: REAL; 

T ARGET: CHAR; 

DOT: BOOLEAN; 



PROCEDURE YOURSIDEITGT: CHAR; VAR X,Y: INTEGER); 

VAR J: INTEGER; 

BEGIN 

J:=ORO(TGT)-CR0('3'); 

J :=J+ 1 ; 

X:=RO(JND( (BXY[ 1 , J3-XCTR) /SCALD + 149; 

Y:=ROUND( < BXY 12 , J3-YCTR) /SCALD *96 ; 

END; 

PROCEDURE OTHERS! DE(TGT; CHAR; VAR X,Y; INTEGER); 

VAR j; INTEGER; 

BEGIN 

IF TGT IN ['a'..'j'3 THEN J:=ORD(TGT)-CRD('a') ELSE 
J:=ORD(TGT)-ORD('A'); 

J:=J+I; 

X:=ROUND((QXY[ 1 , J3-XCTR) /SCALD + 143 : 

Y :=RCUND( ( QXY 12 , J3 -YCTR) /SCALD *96 : 

END; 

BEGIN { cirdecart ) 

(HR TURTLEGRAPHICS*) 

(HR TRANSCEND*) 

(HR T HE3iS9*) 

TFLAG7;=fALSE; 

TFLAG2:=TRUE; 

DOT ;=TRUE; 

RANGELEN :=3: 

GRAFHQDE; TEXT ;=f ALEE; 
0KS£T:=('3'..'?','A'..'J','a'..'j'3; 

PENCOLCR (WHITE) ; 

B0XSTR!NG(3,2,' CIRaE: ENTER LETTER/NUHBER Or ORIGIN ') 
TARGET :=SETCHAR( OKSET) : 

IF TARGET IN l'V..'9'i THEN YOURS! DE (TARGET ,X , 

ELSE GTHERSIDE(TARGET,X,Y) ; 

BCXSTRING(3,2,' CIRaE; ENTER DESIRED .RANGE OF CIRCL 
3ETINTEGER ( RANGE , .RANGELEN) : 

CLEARSQX; 

SAOIUS:=RANGE; 

H0VE7C(X,Y) ; 

FOR I;= 1 TO ‘39 00 BEGIN 
7KETA:=9.32*I*PI; 

RX := ( RAD I US*2 . 3*S IN ( THETA) / SCALE+X) ; 

RY :=( RADIUS* 1 . ?2*C0S(THETA) /SCALED) ; 
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NX:=ROUND (RX); 

MY:=RGIJND (RY); 

DEBLOCK ( DOT , 1 , 8 , 3 , 1 , 1 ,NX ,NY , 1 8) ; 
MBCTHX.Y) ; 

END ; 



PROCEDURE ADV1PART; 
OAR TESTVALUE: REAL; 



PROCEDURE WWEIT; 

PROCEDURE HSG8; 

BEGIN 

GOTOXY(3,3) ; CRT ( EHASEOS) ; 3OT0XY(8,3); 

WRiTELNC' < THE RERUN 3 ORTICN OF TMA IS TERMINATED > ') ; 

WRITELN; 

NRITELNC' NO MORE DATA EXISTS ON FILE ') ; 

WRITELN; 

WRITELM' THANK-YOU FOR PLAYING TMA -- =RESS RETUFN TO CONTINUE 0 
TEXTMODE; TEXT:=TRUE; 

REACLN; 

TFLAG5 :=FALSE ; 

SRFLAG:=fALSE; 

QUITFLAG:=TRUE; 

EXIT(CIRCLD ; 

END; 



PROCEDURE GETBLUE ; 
VAR J: INTEGER: 
BEGIN 



J:=l; 

TESTVALUE :=3; 

WHILE (NOT EOF(BLUHIST)) AND (TESTVALUE > -«??) DO BEGIN 
GET(SLUHIST) ; 

IF EOF(SLUHIST) THEN MSG8 ; 

IF J > 18 THEN EX IT( GETBLUE) ; 

IF TESTVALUE < -999 THEN EXIT (GETBLUE) ; 

OLDBXYIl.J] := 3XYC1,J]; 

3M1,J3:*3LUHISP; 

GET (SLUM I ST) : 

0LDBXYI2,J’:= 3XYI2.J3; 

3XY[2,J];=6LUHIST A 5 
j ;=J * 1 ; 

MAXHLUE:= J - 1; 

END; 

END; 



PROCEDURE GETQRAN6E? 
VAR J; INTEGER; 
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BEGIN 

J:=l; 

TES7VALUE:=8; 

SIMILE (NOT EQF(CRNHIST)) .W (TESTVALUE > -??9> 00 BEGIN 
GET(CnNHIST) ; 

IF EGF(ORNHIST) THEN MSG9; 

IF J > 18 THEN EXIT(GETGRANGD ; 

IF TESTVALUE < -999 THEN EXIT(GET ORANGE) ; 

OLDQXYtl.J3:= GXYI1,J3; 

QXYU,J3:=ORNHIST A ; 

GET(ORNHIST) : 

QLDOXY[2,J3:= QXY12JJ; 

QXYC2,J3:=€RNHIST A ; 

J:=J + 1: 

MAXORANGE := J - 1; 

END; 

END; 

3EGIN { -noveit ) 

GETBIUE; 

3lUEMOUE:=BLl‘EM(M ♦ 1; 

GE7GRANGE; 

QRANGEM OVE : =QRANGEMCVE ♦ 1; 

TFLAG6:=TRUE; 

GRAFFLAG: a TRUE; 

GET (ATIME) ; 

0ELTAT:=AT1ME A ; 

TIM£:=TIM£ ♦ 0EL7AT; 

SLrLAG:*TRUE; 

EXIT(AOVIPART) ; 

END; 

PROCEDURE MENU; 

m 

CH: CHAR; 

BEGIN 

IF GRAFFLAG THEN BEGIN 
3RAFMGDE; 

TEXT := FALSE; 

END 

ELSE BEGIN 
TEXTMODE; 

TEXT;=TRU£; 

END; 

REPEAT 

OKSET.^t'A'/a'/Q'/q'l; 

GOTOXY(8,3) ; CRT (ERA SECS) ; 

30TQXY(3,5) ; 

WRITELN(' A) Advance: bo ve shins to new positions based on time-stenO 
;NRI T ELN( A Q) Quit j return to nrooram's outer ievei '): 
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MRITELN;WRITELN;WR!TELN; 

WRITELN( ' UK USE ’ESC’ KEY TO TOGGLE BETWEEN TEXT AND GRAPHICS }iii 0 ; 
CH :=6E7 CHAR ( QKSET+ ICHR<27) ,CHR(8) ,CHR(21) ,CHR(22> I) ; 

CRT(ERASEOS) ; 

IF CH=CHR(3) THEN CH:='R'; ( !eYt arrow ) reduce scale } 

IF CH=CHR(21) THEN CH:=T'; { right arrow ) increase scale ) 

IF (CH=CHR<27>) ANO (TEXT) ‘THEN BEGIN 
GRAFNOCE; TEXT :=FALBE; 

CH:='2'; 

END: 

IF <CH=€HR(27)) (NOT TEXT) THEN BEGIN 
TE<THGDE: TE(T:=TRIJE; 

CH:= y Z' ; 

END; 

iGASE CH CF 

'A' /a': MODE IT; 

'R' : BEGIN 

DO^SCALE; 

BLFLAG;=TRUE; 

TFLAG5:=TRUE; 

EXIT(ADUIPART) ; 

END; 

T' : BEGIN 

UPSCALE; 

3LFLAG:=TRUE; 

TFLAG5:=TRUE; 

EXIT(AOVIPART) ; 

END; 

' ' : BEGIN 

RCTRFLAG:=TRUE; 

TFLAG5:=TRUE; 

EXIKADUIPART) ; 

END; 

END; 

IF (CH = 'RO OR (CH = TO OR (CH =' 0 THEN BEGIN 
GRAftfODE; TEXT:= -*ALSE; 

END; 

UNTIL CH IN ( 1; 

T EXTMODE; TEXT:=TRUE; 

’FLAGS :=TRU£; 

END; ( Tienu } 

BEGIN ( advloart ) 

(HR TURTLEGRAPHICS50 
(HR THESIS0S) 

TESTVALUE :=8 ; 

TFLAG5:=FALSE; 

MENU; 

BID; ( acv! ) 
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BEGIN { case ) 

IF TFLAG7 THEN CIRGPART; 
IF TFLAG5 THEN AW1PART; 
END; 

SESiENT PROCEDURE ADVANCE ; 
'JAR TGT: INTEGER; 



PROCEDURE MOMEIT; 

VAR i.DELTATLEN: INTEGER; 

NEWX.NEWY: PACKED ARRAY El.. 181 OF REAL; 

SUCCESSFUL: BOOLEAN; 

SPEED: REAL; 

PROCEDURE GETDATA; 

’JAR J: INTEGER; 

BEGIN 

j;=l; 

(SII-S) 

RESET (ORNGAliE, '«S:ORNGNGH.DATA"> ; 

SUCCESSFUL := <10RESULT=8) ; 

IF NOT SUCCESSFUL THEN E<IT( GETDATA) ; 

miw 

WHILE (NOT EOF(CRNGAME)) AND (J <= 18) DO BEGIN 
OLDOXYI 1,J1:= GXYU,J1; 

OXYE I , J] :*OiWGAME A ; 

CfiNHIST* :-QXYI 1 , J] ; PUT(CRNHIST); 

GET(CRNGAME) ; 

OIDOXYE2.J3:= 0XYI2.JI; 

CXYI2, J3 :=ORNGAME A ; 

CRNHIST A :=GXYt2,J3; PUT(CRNHIST) ? 

SET(ORNGAME) ; 

J:=.J + 1; 

END; 

HAXCRANGE:= J - 1; 

CLQSc(CM&1E,LQCX) ; 

GRNHIST A := - 9999 \ PfJT(CRNHIST) ; 

END; 

PROCEDURE CHNGDISX: 

BEGIN 

SUCCESSFUL := TRUE; 

REPEAT 

TEXTMODE : TEKT:= TRUE; 

60T0XY(3,3); CRT(ERASEOS) ; 

GOTOXY(3,3); 

NRITELN(' !!! FOLLOW THESE INSTRUCTIONS '!! 0 ; 
WRITELN; 

WRITELN; 

IF NGT 3UCCESSPJL THEN 

WRITE-IN'S ERROR "AS OCCURED WHILE TRYING TO READ OATAFIL 
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WRITELN; 

WRITELNC' 1. REMOVE OWE DISK FROM DRIVE 12'); 

WRITFlN; 

WRITELN < ' 2 . EXCHANGE DISKS WITH OPPONENT ') ; 

WRITEIN; 

WRITELN(' 3. PLACE OPPONENT'S UPDATED SANE DISK IN DRIVE 4 2 0; 
NRITELN; 

«RITELN(' < PRESS RETURN WHEN READY > '); 

WRITELNjREACLN; 

GETDATA; 

UNTIL SUCCESSFUL; 

OPJ^EMOVE:=ORANGEMCVE + 1; 

SLUEMQVE :=SLL ! EMOVE + 1; 

END; 

BEGIN { moveit ) 

TEXTMODE ;TEXT :=TRUE ; 

DELTATLEN;=2; 

GOTCXY ( 3 , 3) ; CRT ( EPASEOS) ; 

G0TGXY<9,2): 

WRITELN; 

WRITELNC' Enter desired time steo ( DELTA T } Tor the first move/); 
wRITELN; 

WRITE(' in minutes (8 - 99): ') ;6ETINTEGER(DELTAT,DELTATLEN) ; 

WRITELN; 

IF OLDGAME THEN RENRITEtATIME, '44:TIME.DATA') ; 

OLDGAME :=FALSE; 

ATIME A :=OELTAT; PUT(ATIME) : 

REWRITE(BLUGAM£, "#5:BLUENCH.CATA") ; 

FOR I := 1 TO MAXBLUE DO BEGIN 
SPEED :=6SFD[ I ]J<CELTAT/o8.3) ; 

NEWXI I] :=8XYE 1 , I]+<$PBED?2.3?SIN<GCUSI! ]> ) ; 

0LDBXY[1,J3:= 3XYEU3; 

BXYI!,I];= NEMXII3; 

BLUGAME' ;=NEHXCI 3 ;PU7(BUJGAM0 ; 

3L'JHIST A ;=»©«[ I ] ;PUT(BLUHIST) ; 

NENY [ I] : =8XY [ 2 . 1 j H SPEED? I . ?2J COS ( GCUS I II ) ) : 

0LDBXYI2 , 1 0 := 3XYI2.I3; 

3XYI2,I3 := NENYIIl; 

BLUGAME' :=NENYII 3 :PUT(3L'JGANE) : 

SLUHI ST A :=NEWY E 1 0 ; PUT ( HLUHIST) ; 

END: 

3LUHIST A :=-?999; P!JT<SLUHIST) ; 

CLOSE (BLUGAME, LOCK) ; 
uieiSK: 

TFLAGo:=TRUE; 

3RAPFLAG:=TRUE; 

TIM£:=TIME * DELTAT; 

8LPLAG:=TRUE; 

EXIT (ADVANCE) ; 
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END; 

PROCEDURE CrflGDATAC: INTEGER); 

'JAR SPD . SPDLEN , CUS , CliSLEN : INTEGER; 

BEGIN 

SPDLEN :=2; 

CUSLEN s=3; 

CUS:=ROUNO(GCUSm * 1S8 / PI); 

SPD:=R01M)( GSPDt I ]) ; 

WRITELNjWRITELN; 

WRITELNd ALL NUMERICAL INPUT IS INTEGER!! ') ; 

WRITELN; 

WRITER Course: (0-248) '); 

REPEAT 

GET INTEGER (CUS. CUSLEN) ; 

UNTIL (CUS >= 9) PND (CUS <= 348) ; WRITELN; 

GCUSt I ) := CUS t PI / 1S0; 

MRITEC ' Speed : (0-48) '); 

REPEAT 

GET INTEGER ( SFO , SPDLEN) ; 

UNTIL (SPD >= 3) PND (SPD <= 40 ) ; WRITELN; 

GSPOEIl:* SPD; 

END; 

PROCEDURE SHQWDATAd: INTEGER); 

OAR YE340: SETCFCHAR; 

PNS: CHAR; 

BEGIN 

YESNO:=( 'Y' , 'y' , 'N' , 'n' 3 ; 

TEXTHCOE; TEXT:= TRUE; 

GOTOXY(3,3); CRT(E.RASEOS) ; 

G0T0XY<8,3) ; 

WRITER Ship » : ') ;WRITE(I-J) -.WRITELN; 

WRITE<' X Coordinate: ') ;WRITE(RCLND(BXY[!,I] / 2.3 )); 

WRITELN! ' I es ') : 

WRITE!' Y Coordinate: ') ;NRITE(ROUND(BXY[2.I3 / S.?2 )); 

WRITELN ( ' miles '); 

WRITE!' 'Course : ') :WRITE(RCUND(GCUS[I] * !S8 / PI)); 

WRITELN! ' decrees '): 

WRITE( / Sceed : ') ;WRITE(RQLND<SSPDm )); 

WRITELN! ' Knots '); 

WRITELN;WRITELN; 

WRITE!' Any chances (Y/N) ? '):PN3:= GET CHAR (YE 340 ♦ ICHR(23)I) :WRITELN: 
IF (ANS = 'Y') uR (ANS = 'y') THEN CHNGOATA(I); 

END; 

PROCEDURE HODALL; 

BEGIN 

TEXTMOOE: TEXT:= TRUE; 



75 



FOR T3T :=1 TO taXSLUE 00 SEOIN 
SKCkOATAtTGT} ; 

END; 

END: 

PROCEDURE MODCNE; 

VAR TGTLEN: INTEGER; 

BEGIN 

TEXTCCDE; TEXT:= TRUE; 

TGTLEN:* 1; 

GOTQXY(0,0) ; CRT(ERASEGS) : 

G0T0XY<3,3) ; 

WRITELNt' Enter number of stiio whose oarameters you wish to change '); 
WRITELNt' (8-?) 

REPEAT 

GET INTEGERtTGT, TGTlEN) ; 

UNTIL (TGT )= 8) PND (TGT <» ?) ; 

WRITELN: 

3HCW0ATA(TGT+1); 

END; 

PROCEDURE VI EMIT; 

VAR 

CH: CHAR; 

BEGIN 

TEXTMODE; TEXT :=TRUE ; 

REPEAT 

(XSET^C'A'./B'/a'./b'/Q'/q']; 

QOTOXY(3,9) ; CRT ( ERASEOS) : 

6CrrOXY(8,3) ; 

NRITELN;NR I TELN :WRITELN :WR I TELN ; 

WRITELNt' A) View / Modify ill ships' parameters '); 

WRITELNt' 3) View / Modify one shiD's oarameters 
WRITELN(' 3) Quit : return to orevious menu '); 

WRITELN ;NRITELN;HRITELN; 

WRITELNt ' m< USE ’ESC 1 .KEY TO TOGGLE BETWEEN TE<T AND GRAPHICS >«S ') 
CH:«GETCHAR<CKSET+ ICHR<27>1>: 

CRT(ERASEOS) : 

IF (CH=CHR(27)> AND TEXT) THEN SEGIN 
3RAFM00E ; TEXT :=FALSE ; 

CH:='Z'; 

END 

ELSE IF (CH=CHR<27)> AND (NOT TEXT) THEN SEGIN 
TEXTHGDE; TEXT :=TfiUE; 

CH:='Z'; 

END; 

CASE CH OF 

A'/ a' : MCCALL : 

'SVb': MODCNE ; 

END: 
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UNTIL CH IN t 'Q' , / q / 3; 
END; ( viewit } 



PROCEDURE MENU; 

VAR 

CH: CHAR; 

BEGIN 

IF GRAFFLAG THEN BEGIN 
GRAFHQDE: TE<T:=FALS£; 

GRAFFLAG :=FALSE: 

END 

ELSE BEGIN 

TEX7N00E; TEXT :=TRL‘E; 

END: 

REPEAT 

OKSET.^I'A'./BVa'./bVQVq'I; 

GOTGXYO ,3) ;CRT(£RASEOS) ; 

G0T0XY<8,5); 

WRITELM' A) View ; present ship positions, courses, and soeeas ') : 

WRITELNt' 8) Advance: move ships to new positions based on time-step') 

NRITELNt' 0) Quit : return to program's outer level ') ; 

WUTELN;HRITELN;NRITEIN; 

WRITELM' m< USE ‘ESC’ KEY TO TOGGLE BETWEEN T EXT FNO GRAPHICS >*3K ') 
CH:=6ETCHAR(0KS£T+ ICHR(27) ,CHR(3) ,CHR(21) ,CHR(32) 3) : 

CRT(ERASEOS) ; 

IF CH=CHR(8) THEN CH:='R'; { left arrow > reduce scale ) 

IF CH=CHR(21) THEN CH:=' I'; ( right arrow > increase scale ) 

IF <0+=CHR(27)) AND (TEXT) THEN BEGIN 
GRAFMGOE; TEXT :=FALSE; 

CH:='Z'; 

ENO 

ELSE IF (CH=CHR<2?)) FND (NOT TE<T) THEN BEGIN 
TEtTMOOE; TE<T:=TRUE; 

CH;='Z'; 

END: 

CASE CH OF 

'A' /a': VIEWIT; 

'3','b': MOVE IT; 

'V : BEGIN 

DG*tSCAL£; 

5LfLAG:=TRUE: 

7FLA65:=TSUE; 

TFLAGo:=FALSE; 

EXIT (ADVANCE) ; 

END: 

'I' : BEGIN 

UPSCALE; 

3LFLAG:=7RUE; 

7FLAG5:=TR0E: 

TFLAG6:=FALSE; 
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EXIT (ADVANCE) ; 

END; 

' ' : BEGIN 

RCTRFLAG:=TRU£; 

TFLAG5:=TRUE; 

TFLAS6 : =FALSE ; 

EXIT(ADWNCE) ; 

END; 

END; 

IF CCH = '90 OR (CH = TO OR <CH =' 0 THEN 3E3IN 
GRAFMODE; TE<T:= FALSE; 

END; 

UNTIL CH IN I 'Q'/Q' 1; 

TEXTM3DE; TEXT :=TRUE; 

TFLAG6:=TRUE; 

EXIKADVANCD ; 

END; ( !Benu ) 

BEGIN ( advance ) 

(HR TURTLEGRAPHICSS) 

(HR TRANSCEND!) 

((HR THESIS9*)) 

TFLAG5;=FALSE; 

TFLAG4;=TRUE: 

MENU; 

END; ( advance } 

SEGMENT PROCEDURE CPA; 

VAR TARGET I JARGET2; CHAR ; 

X81,Y81,XI1.Y11,DXI,DY3,X82,Y82.X22,Y12,DX2,DY2: REAL; 

BEARING , COURSE 3 , C0URSE2 .TGT 1 ,T3T2 , 1 .XX 1 ,XX2 , YY 1 , YY2 : INTEGER ; 
CPAT ,VX 3 , VX2 ,VY 1 , W2 .CUS1 ,CUS2 ,T : REAL ; 
DIST,DEN0H,3PD1,SPD2,DX,DY,DMX,DVY: REAL ; 

PROCEDURE 3FEED(DX,DY; REAL; VAR SPD; REAL); 

BEGIN 

DIST:=SGRT(SGR(DX) ♦ SQR(DY)) ; 

SFD:= DIST / DELTAT S d8; 

END; 

FUNCTION DEGREES(DX,DY: REAL) : INTEGER; 

CONST ERR = 3.33; 

VAR VALUE: INTEGER; 

BEGIN 

IF (DX < (8+ ERR)) AND (DX > (3 -ERR)) THEN BEGIN 
IF (DY < (9+ERR)) AND (DY > (8-ERR)) THEN DEGREES := 8; 

IF DY > 8 T HEN DEGREES := 333; 

IF DY < 3 THEN DEGREES 333; 

EX IT (DEGREES) ; 

END: 

IF (DY < (8+ ERR)) AND (DY ) (8-ERR)) THEN BEGIN 
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IF OX > 9 THEN DEGREES := 278: 

IF DX < 3 THEN DEGREES := 399: 

EXIT (DEGREES) ; 

END; 

VALUE := ROUND ( 130 / Pi i AT AN (DX/DY)); 

IF ABS (VALU0 O VALUE THEN BEGIN 
IF DX < 3 THEN DEGREES := 189 + VALUE; 

IF DX > 3 THEN DEGREES: 5 369 ♦ VALUE; 

END 

ELSE BEGIN 

IF DX > 3 THEN DEGREES: 5 189 ♦ 'VALUE: 

IF DX C 8 THEN DEGREES: 5 'VALUE: 

END; 

END; 

PROCEDURE TYPE 1 ; 

BEGIN 

TGT!:=0RD(TARGET1) - CSDC"3") ; 

TGT!:=TGT1 ♦ 1: 

Xai:=OLDBXYt 1,TGT1] ; 

Y01:=i3LDSXYI2,TGT13; 

X11: 5 8XYU,TGT13; 

Y11:=3XYE2.TGT1I; 

DX1:= X91 - XU; 

DY1:= Y01 - YU; 

END; 

PROCEDURE TYPE2; 

BEGIN 

IF "’’ARGETl IN t'a'./j'I THEN TGTl:=0RD(TAR6ETi) - ORD('a') ELSE 
T6T1:=0R0(TARGET1) - ORD('A') : 

T8T1:=T6T! * 1; 

X81:=OLDOXYU,TGT13; 
v 31:=0LD0XYt2,TGTl] ; 

Xll:=OXYIl.TGT13; 

Yll:=OXYt2,TGT!3; 

DX3:= X91 - XU: 

DY1:= Y03 - YU; 

END; 

PROCEDURE TYPES; 

BEGIN 

TGT2:=0RD(TARGET2) -CRD<'3'>; 

TGT2:=TGT2 ♦ i; 

X32:=OLDSXYt !,TG723 ; 

(32: =0L D 3X7 1 2 , TGT2 3 ; 

X12;=eXYn,TGT23; 

Y12:=8XYC2,TGT23; 

DX2:= X82 - X12: 

DY2:= Y92 - Y12: 

END; 
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PROCEDURE TYPE4; 

BEGIN 

IF TARGET2 IN £'a'..'j'] THEN TG72:=GRD(TARGET2) - GRD('V) EL 
TGT2:=GRD(TARGET2) - ORDt'A'); 

TGT2:=TGT2 ♦ 1; 

X02:=OLCOXYt 1 ,TGT2) ; 

Y82 :=0LDCXY 1 2 , TGT23 ; 

X12:=OXYCl,TGT2]; 

Y12:=GXY12 ,TGT2]; 

0X2:= X02 - X12; 

QY2:= Y92 - Y12; 

END; 

PROCEDURE DRAWLINES; 

GAR X 1 , Y 1 .X2 , Y2 , DX , DY , 3P03 : SEAL; 

BEGIN 

3RAFMGDE; TE<T:= FALSE; 

PENCOLOR(NOIE) ; 

XX 1 :=R0LND( (X 1 1-XCTR) /SCALE) + 148; 

YY 1 :=R0UND( (Y 1 1-YCTR) /SCALE) +94 ; 

M0U£7O(XX1,YY1); 

PENC3LCR (WHITE) ; 

XXI :=RGUND(XXH(TXVX 1X2. 3/SCALE) ) ; 

YY!:=fiQlND(YY!+(TXVY IX 1.92/SCALD) ; 

X 1 :=( (XXI- 140) XSCALE) +XCTR ; 

Y1 :=( (YY1-96) XSCALE) +YCTR; 

NGUET0(XX1,YY1) ; 

PENCOLOR(NONE) ; 

XX2:=RCUN0< (X12-XCTR) /SCALD H48 ; 

YY2 :=RGUND( (Y 12-YCTR) /SCALE) +93 ; 

HQUET0(XX2,YY2) ; 

?ENCSLCR(WHITD ; 

XX2 :=R0UND(XX2+ (TXUX2X2 . 3/SCALE) ) ; 

YY2 :=R0UND ( YY2+ (7XVY2X 1 . 92/SCALE) ) ; 
X2:=«XX2-149)XSCALDtXCTR: 

Y2:=((YY2-?6) X SCALE) +YCTR; 
xa ; ETC(XX2,/Y2) ; 

PENCOLORfNGNE) ; 

0X:=(X1-X2) / 2.3: 

DY:=(Y1- V 2) / 1.92; 

3EARING:= DEGREES(DX.DY) ; 

SPEED* DX.DY.SFD3) ; 

FOR I := 1 TO 2800 DO 3E3IN 
i:=I+l; 

ENO: 

END: 



0 RCCECURE MESSAGE 1: 
BEGIN 
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TEXTHOOE ; TEXT:= TRUE; 

GOTQXY(0,3) ;CRT(ERASE€S) ; 

G0TQXY<3,6); 

NRITELNt' Not enough data to compute CPA '); 

WITELN:«RITELN:HRITEIN; 

WRITELNt' < PRESS RETURN TO CONTINUE > ') ; 

REAOLN; 

TFLAG3:=FALSE; 

TFLAG4:= TRUE; 

EXIT (CPA) ; 

END; 

PROCEDURE MESSAGED; 

SEGIN 

TEXTMODE; TEXT:= TRUE; 

G0TOXY(8,0) :CRT(ERASEOS) ; 

3OTQXY(0,6) ; 

WRITELNt' The tine to CPA tress ' TARGET 1/ to ' ,7AR6ET2, ' is : '); 
NRFELN; 

WRITELNt' ' ,ROLNO(T3Ec3) ,' MINUTES ') \ 

WRITELN; 

WRITELNt' The range and bearing Pros ' .TARGET 1 , ' to 'TARGETS) ; 

WRITELNt ' at that tine will be : '): 

WRITELN; 

WRITELNt' ' ,S0UND(DI3T) ,' ailes -- bearing SEARING,' degrees ') ; 

WRITELN:NRITELN:KRITELN: 

WRITELNt ' < PRESS RETURN TO CONTINUE > ') ; 

REAOLN; 

TFLAG3:=FALSE; 

TFLA64:=TRUE: 

END: 

PROCEDURE MESSAGES; 

BEGIN 

TE<TMCDE: TEXT;= TRUE; 

3GTCXY(3 ,3) ;CRT (ERASEOS) ; 

GOT QXY (8,6.) ; 

WRITELNt' Taroet ii 'TARGETl,' and target 4 'TARGETS ); 

WRITELN; 

WRITELNt' have oarailel courses with the cane soeed ! '),* 

-NRITELN ;WR ITELN jWRI "ELN ; 

WRITELNt' ( PRESS RETURN TO CQfTT I.NUE > ') ; 

READLN; 

TFLAG3;=FALSE; 

t FLAG4:=TRUE; 

E<IT(CPA) : 

END; 



SEGIN { CPA ) 
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(!5R TUSTLEGRAPHICS3D 
( m TRANSCEND!) 

(!$R THESIS0!) 

IF CSAN6ENWE <= ! THEN MESSAGE!; 

QRAFN’COE; TEXT :=FALSE ; 

0KSET:=C , 9'..'9VA'.. / jy a'.. 

eOXS7RING<3,2,' CPA: LETTER / NUMBER OF 1ST SHIP '); 
TARGET 1 :=GETCHAR( OKSET) ; 

IF TARGET! !N['9'..'9']THEN TYPE! ELSE TYPE2; 

DX 1 :=OX 1 / 2.3; 

DY’.:=DY! / 1.92; 

COURSE 1 :=CE6REES ( DX ! , DY 1) ; 

CUS1:=C0URSE1 i ?! / 139; 

SPEED(DX1.DY:,SP91); 

UX1:"SPD1 * SlN(CUSl); 

VY1:-3P01 x COS(CUSl) ; 

B0XSTRING(3,2,' CPA: LETTER / NUMBER :0F 2ND SHIP ') ; 

TAR0E72:=GETCHAR(0KSET) ; 

CLEARBOX; 

IF TARGET2 INI 3THEN 7YFE3 ELSE TYPE-i; 

0X2 :=0X2 / 2.3; 

QY2:=0Y2 / 1.92; 

C0URSE2 :=CESREES (DX2 . DY2) ; 

CUS2:=CCURSE2 i PI / !S9; 

SPEED (DX2,DY2,3PD2) ; 

VX2:=SPD2 i SIN(CUS2) : 

VY2:=Sf02 ! C3S(CUS2) : 

DX:=(X1! - XI 2) / 2.3; 

OY :=vYI 1 - Y12) / 1.92: 

O t - f X:=VX! - VX 2; 

DVY:=W1 - VY2; 

DENCM:= SQR(DVX) + SGH(DUY): 

IF DENGM = 9 THEN MESSAGES; 

T:= -(DXIDVX t OYiDVY) / (SGR(DVX) + SGR(CLY)); 

IF T < 3 THEN T:= 9; 

C?AT:= TIME ♦ T; 

DRAWL INE3; 

MESSAGES: 

END; 

SE31ENT PROCEDURE MOVEMENT ; 

VAR CH: CHAR: 

X.Y.TYMEJARGET, MCUS, DT: INTEGER; 

DIRECTION, COURSE, SPEED, MSPD: REAL: 

NffTYET. TRACE: BOOLEAN; 

PROCEDURE DISPLAY; 

VAR X,Y,J: INTEGER; 

BEGIN 

IMITTURTLE; 
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FOR J:=! TO MAX8LUE DO BEGIN 
X:=fiO^D((E<YU,J]-:<CTR)/mD + 149; 

Y : =ROUNO < < EXY [ 2 , J 3 -YCTR) / SCALE) + 96 ; 

MOVETO(X,Y) ; 

DRAW6LGCX(SHIPF!G,2,3,8,?,$,X,Y,18) ; 

NUHEER<X,Y,J) ; 

END; 

FOR J:= 1 TO HAXORANGE DO BEGIN 
X:=ROl*;D( (OXYE 1 , JI-XCTR) /SCALE) + 149 ; 

Y :=ROUND< ( QXYf 2 , J 3-YCTR) /SCALE) * 96 ; 

MGUETO(X,Y) : 

DRAW8L0CX(3HIPFI3,2.3,9,7,3,X,Y,5); 

L£77ER(X,Y.J) ; 

END; 

GRAFMQDE; TEX7:=FALSE; 

END; 

PROCEDURE MESSAGE 1; 

BEGIN 

CLEAR30X; 

GOTCXY(9,9) ; CRT(ESASEQS) ; 

GOTOXY(8,o); 

NRITELW' Not encuoh data to compute course / soeed ') ; 
WRITELN:WRITELN:NRITELN; 

WRJ7ELN(' < PRESS RETURN TO CONTINUE > 

TEXTMODE; TEXT:=TRUE; 

NOTYET :=TRUE; 

REAOLN; 

END; 



PROCEDURE GE7TGT ; 

OAR TGT: C-ttR; 

SEGIN 

CKSET:=I , 8\/?VA / ..'JVa , ..'j / ]; 
cOKSTRING(3,2,' MOVEMENT : MOVE WHICH SHIP (0-P/A-.J)? 

TGT :=6ETCHAR(0KSET) ; 

IF (TGT IN ['A' ./J'3) CR (TGT IN ['V..'j'3) THEN SEGIN 
If ORANGEMOVE <= 1 THEN MESSAGE I : 

IF CSANGEMCVE <= i THEN EXIT<GETT3T) ; 

IF TGT IN I'A'./J'] "HEN MTARGET : =ORD C T 6*0 -CRD ( 'AO + ! EL 
MTARGET :=€RD(T6D -]RD( ' a') + i ; 

M5LAG;=TRUE; 

T=LAG2:=fALSE; 

EXIT (MOVEMENT) ; 

END: 

TARGET :=ORO(7GT) - QRD('3'} + i; 

end: 

PROCEDURE SET COURSE; 

VAR CUSLEN,CUS: INTEGER; 

BEGIN 

CUSLEN:=3; 
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REPEAT 

ECXSTRING(3,2,' MOVEMENT: ENTER DESIRED COURSE (8-360) ') ; 
GETINTEGER(CUS , CUSLEN) ; 

INTIL (CUS > 8) AND (CUS <= 348) ; 

MCUS:=CUS; 

COURSE :=CUS 5 PI / 188; 

END; 

PROCEDURE GET SPEED; 

VAR SPDLEN.SPO: INTEGER; 

BEGIN 

SrDL£N:=2; 

REPEAT 

3CKSTRING(3,2,' WWBfflff: ENTER DESIRED SPEED (3-48) '); 

GET I NTEGER ( SFO , SPOLEN) ; 

INTIL (SPD )= 8) AND (SPD <= 40) ; 

MSPD : =SFD ; 

SPEED :=SPD: 

BID; 

PROCEDURE GETTIME; 

VAR TINELEN: INTEGER; 

BEGIN 

TI«ELEN:*2; 

REPEAT 

BGXSTRIN6(3,2,' MOVEMENT : TIME STEP (8-??) IN MINUTES '); 

GET INTEG£R( TYNE , T INELEN) ; 

UNTIL (TYNE >= 3) AND (TYME <= ??) ; 

END; 

PROCEDURE 7 RACE ON; 

VAR TR: CHAR; 

BEGIN 

OKSET^t'YVvYN'jV]; 

BGXSTRING(3,2/ MOVEMENT : DO YOU NISH TRACE ON (Y/N)? '); 
TR:=GE7CHAR(QKSE7 + CCHR(I3)3); 

IF (TR = 'Y') OR (TR = V> THEN TRACE :=TRUE aSE TRACE :=FALSt; 
END; 

PROCEDURE uETX; 

VAR XLEN; INTEGER; 

XI; REAL; 

BEGIN 

XLEN:=3; 

REPEAT 

3CLXS7SIN6<3, 2, 'MOVEMENT : DESIRED X-COORDINATE (0-190)?'); 

GET INTEGERS, XLEN) ; 

JTTIL (X )= 0) .AND (X <» 188) ; 

:<!;= X S 2.3; 

X1:=((X3-XC7R) /SCALE) + 148; 

X:=RGWD(X3) ; 

END; 

PROCEDURE GtTY; 

VAR YLEN: INTEGER; 
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Yl: REAL; 

SEGIN 

YLEN:=3; 

REPEAT 

30XSTRIN6(3,2, 'MCVENENT : DESIRED Y-COORDIWTE (0-180)?'); 
GETINTEGER(Y,YLEN) ; 

UNTIL (Y >= 9) AND (Y (= 180) ; 

Yl:* Y * 1.92; 

Y 1 :=< < Y 1-YCTR) /SCALE) +96 ; 

Y:=RQUND(Y1) ; 

END; 

PROCEDURE RELDIR; 

'JAR DIRLEN.DIR: INTEGER; 

SEGIN 

DIRLEN:*3; 

REPEAT 

SOXSTRING<3,2,' JHWEKENT: DESIRED DIRECTION (8-368)? '); 
GETINTEGER(QIR.DIRLEN) ; 

UNTIL (DIR >= 9) AND (DIR <= 368) ; 

MCUS:=OIR; 

DIRECTION:* DIR * PI /IS9; 

BSC: 

PROCEDURE RELDIST ; 

VAR 0ISTLEN.DI3T: INTEGER; 

XD,YD: REAL; 

SEGIN 

DISTLEN:*3; 

REFEAT 

B(KSTRING(3,2, 'MOVEMENT :DESIRED DISTANCE (8-308) NILES') ; 
G£T!NTEG£R(DIST,DISTL£N) ; 

UNTIL (DIST >= 8) AND (DIST <= 280) ; 

IF DELTAT = 9 THEN DT:=69 ELSE DT :=CELTAT ; 

NSPD :=GSPDETARGETI ; 

XD:= DIST * SIN(DISECTION) ; 

XD:* XD i 2.38 / SCALE: 

X:= ROUND (XD) ; 

YD:= DIST ( COS(DIRECTICN) ; 

YD:* YD * 1.92 / SCALE; 

Y:= ROUND(YD) ; 

END; 

PROCEDURE DRAwFIG: 

BEGIN 

PENCCLOR(NCNE) ; 

CRAWBLGCK(SHIPFIG.2,3,8,7,3,X,Y,!9) ; 

NUK8£R(X,Y, TARGET) ; 

END: 

PROCEDURE MAKEONG(C : INTEGER ;S : READ ; 

VAR I; INTEGER; 

■^S: CHAR; 

SEGIN 



85 



OK$£T:=( / Y', / yVN / , / n / }; 
rCR 1 1— I TO 2900 00: 

TEXTMOOE; TEXT :=TRUE; 

GijTCXY<9,9) ; CST(ERASEQS) ; 

GQ7GXY(9,3) ; 

WRITELNC YOU HAUE PROPOSED A COURSE !r SPEED CHANGE FOR TARGET it TARGET-!) 
14RITELN: 

WRITELNC ' ' ,C, ' DEGREES ' .ROtfiOXS) , ' KNGT3 ') ; 

WRITELN; 

XRI7ELNX' DO YOU WISH TO MAKE THIS CffWGE TO THE DATABASE ? (Y/N) ') ; 
FNS :=GE7CHAR< CKSET + ICHRU3)3>; 

IF ANS IN C'Y','y'3 THEN BEGIN 
GCU3ITARGET3:=CXPI/1S9; 

GSPDCTARGET3 :=S; 

END; 

END; 

PROCEDURE M0VE1; 

CAR XD.YD: REAL; 

31,82; INTEGER; 

3EGIN 

GRAFMCDE; TEXT:* FALSE; 

GETTGT; 

IF NQTYET THEN BEGIN 
NQTYET :=FAL3E ; 

EXITXHOVEl) ; 

END; 

GETCOURSE; 

GETSPEED; 

GETTIME; 

TRACECN; 

CLEARBQX; 

PENCOLCR(NGNE) : 

31:=RCUND((8XY[ 1 .TARGET 3-XCTR),' SCALD * 149 ; 

32 ; =ROUND ( ( BXY [ 2 , TARGET 3 -YC7R) / SCALE) +96; 

M0VET0(8!,82) ; 

{ 3o aath to get new xy } 

IF TRACE THEN FENCCLOR'.WHITE) ; 

XD:- SPEED / 69 X TYNE X 3 IN( COURSE) / SCALE X 2.3; 

X:= ROUNO(XD) : 

X:=X+83; 

YD:* SPEED / 39 X TYNE X COSXCOURSD / SCALE X 1.92; 

Y:= ROUND(YD) ; 

Y:=Y*82; 

HOVETO(X,Y) ; 

3RAWFIG; 

MAKECWGCMCUS.MSFD) ; 

END; 

PROCEDURE H0VE2; 
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WAR 31,32: INTEGER; 

DX,DY: REAL; 

BEGIN 

GRAFMODE; TEXT ;=FALS£; 

6ETTGT; 

IF N0T7ET THEN BEGIN 
NOTYET:=FALS£; 

EXIT0WE2) ; 

END; 

SETXs 

GETY: 

7RACECN: 

CLZARBOX; 

FENCOLOR(NGNE) ; 

31 :=ROUND< (3XYI 1 , TARGET 3 -XCTR) /SCALE) + 148 ; 
32 :=ROUND< ( BXYI 2 , TARGET ] • -YCTR) /SCALE) + 96 ; 
MCUET0(81 f B2); 

IF TRACE THEN FENCOLOR (WHITE) ; 

M0V£7Q(X,Y) ; 

CRAWFIG; 

END; 

PROCEDURE MCVE3; 

VAR 81,32: INTEGER; 

BEGIN 

GRAFMGDE; TEXT .-FALSE; 

6ETTGT ; 

IF NCTfET THEN BEGIN 
NOTYET : =(: AL3E; 

EXIT (MCVE3) ; 

END; 

RELDIR: 

RELD 1ST; 

7RACEGN; 

CLEARBOX; 

PENCOLORINCND ; 

8 1 :=RGUND< ( 3XY [ 1 . TARGET] -XCTR) /SCALD + 149: 
B2:=R0UN0( C2XYE2 , TARGET 3 -YCTR) /SCALE) + 96 ; 
MGL'ET0(91,32) ; 

IF "RACE THEN ?ENCCLCR(WHI7E) : 

X:=X+91: 

Y:=Y+62; 

MGVE70(X,Y) ; 

DRAttFIG; 

MAKEDflG(NCL'S.NSFO) : 

END; 

PROCEDURE EESETFLA63: 

BEGIN 

NOT+ET : -FALSE: 
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lf1FLAG:=FALSE; 

7FLAG1:=FALSE; 

7FLAS2:- TRUE: 

IF GKAFFLAG THEN 
3EGIN 
GRAflttDE; 

GRAFFLAG:=FALSE; 

TEXT:=FAi.S£; 

END 

ELSE SEG1N 
TEXTMODE ; 

TEXT :=TROE : 

END; 

END; 

BEGIN ( movement } 

(J5R T18TLEGRAFHIC35S) 

«$R THESIS0JO 
{UR TRANSCEND*) 

SESETFLA6S; 

REPEAT 

OKSET:=C'A' ..'D' /a' ./d" j'Q'/q']; 

GOTOXY(0,0) ; CRT (ERASE 03) ; 

?R£HPTAT(0/) MOVEMENT: Visually checK possible positions ot your ah 1 os') : 
GOTOXY(0,5) ; 

wRlTELNt' A) Mwesent using Course, Speed, Time '); 

WRITELNt' 3) Hove your unit to a new (X.Y) position '); 

WRITELM' 0 Move your unit relative to its oresent oosition '); 

WRI7ELN(' D) Clear previous .movements from the screen ') ; 

NRITELNt' 3) Quit - Exit trcm this orocedure ') ; 

WRI7ELN; 

NRI7ELN(' [{-] Downscale disolav '); 

WRITELNt' [-)] Uoscale display '); 

XRITELNt'I space! Recenters display '); 

XRITELNt' lESC! Toggles display between text and oraphics '); 

CH :=GET CHAR ( CKSE7+ CCHRC2?) ,CHR(3) ,CHR(21) ,CMR(22) 3) ; 

CRT(ERASEOS) ; 

IF CH=CHR(S) THEN CH:='R'; { left arrow > reduce scale } 

IF CH=CHR(21) THEN CH:=T' ; C right arrow > increase scaie ) 

IF (CH=CHR(27)) m (TEXT) THEN BEGIN 
GRARfODE; 

TEXT := P ALSE; 

CH:='Z': 

END 

ELSE IF (CH=€HR(27) ) AND (NOT TE<T) THEN 3EGIN 
TE<THQCE; 

T E<T :=TRUE; 

CH:='Z' : 

END; 

CASE CH OF 
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'A', 'a': MCVE1; 

'o' ,'b': M0VE2; 

'CVc'r MGVE3; 

'D" ,'d': DISPLAY; 

'S' ; BEGIN 

DOWNSCALE; 

3L?LAG:=TRUE; 

TFLAG1:=TRUE; 

TFLAG2:=FAL$E: 

£<IT(MGVEHENT) ; 

END; 

'V : BEGIN 

UPSCALE; 

9LfLAG:=TRUE; 

TFLAG1:=TRUE; 

TFIAG2;=FALSE; 

EXIT (MOVEMENT) ; 

END; 

' ' : BEGIN 

RCTRFLAG :=TRliE ; 

3LFIAG:=TRUE; 

TFLAG 1 :=TRUE ; 

TFLAG2:=FALSE; 

EXIT (MOVEMENT) ; 

END; 

END; 

UNTIL CH IN [ 'Q'/q' 3; 

END; 

SEGMENT PROCEDURE M0VE2 : 

VAR XI. Y1,X2,Y2, DISTANCE, SPEED, CHS, OX, OY: PEAL: 

COURSE, 00 1,002, TYNE: INTEGER; 

TRACE: BOOLEAN ; 

XX, YY: PEAL; 

PROCEDURE 0I3TSFD<0X,DY: PEAL: VAR DIST.SPD: READ; 

BEGIN 

DIST := SORT ( SCR (DX) * SQR(DY)) : 

SPD:= DIST / DELTA! : 

END: 

RUCTION DEGREES(DX,DY: REAL) : INTEGER; 

CONST ERR = 3,81; 

VAR VALUE: INTEGER; 

BEGIN 

IF (DX < (8+ ERR)) AND (DX > (8-ERR)) THEN BEGIN 
IF (DY < (3+ERR)) AND (DY > (3-ERR)) THEN DEGREES : 
IF DY > 8 T HEN DEGREES := 138: 

IF DY < 9 THEN DEGREES := 269; 

EXIT (DEGREES) ; 
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END; 

IF (DY < (9+ ERR)) PM) (DY > (9-ERR)) THEN BEGIN 
IF DX ) 9 THEN DEGREES := 279; 

IF DX < 3 THEN DEGREES := 399; 

EX IT (DEGREES) ; 

END; 

VALUE := ROUND! 138 / PI * ATAN (DX/'DY)): • 

IF A6S (VALUE) O VALUE THEN BEGIN 
IF DX < a THEN DEGREES := IS3 ♦ VALUE; 

IF OX > 3 THEN DEGREES: 3 2i8 * VALUE; 

END 

ELSE BEGIN 

IF OX ) 9 THEN DEGREES: 3 !S3 ♦ ’OALUE ; 

IF DX < 9 THEN DEGREES: 3 VALUE; 

END; 

END; 

PROCEDURE GETTIME; 

VAR TINELEN: INTEGER; 

BEGIN 

TINELEN:=2; 

REPEAT 

KKSTRING(3,2/MCVB€NT2: TINE STEP (9-9?) IN MINUTES') ; 
GETINTE6ER(TYH£, TINELEN) ; 

UNTIL (TYNE > 3 9) PND (TYME <= 99) ; 

END; 



PROCEDURE TRACEON; 

VAR TR: CHAR; 

BEGIN 

CKSET :=( 'Y' , 'y' , 'N' , 'n' I ; 

SCXSTRINGv 3 , 2 , 'MOVEMENTS : DO YOU NANT TRACE W (Y,'N)?'); 
TR:=GETCHAR( CKSET + ICHR(IS)I); 

IF (TR 3 'Y') OR (TR ='•/) THEN TRACE :=TRUE ELSE TRACE :=FALSE; 
END: 



PROCEDURE NENFQ3IT : 

VAR NEW.NEWY: REAL; 

BEGIN 

;<X:=<aXYt !,MTARGu I-XCTR)/SCALD 199: 

YY := ( CXYC 2 . NTARGET 3 -YCTR) /SCALE+96 ; 

NEHX:* XX * (SPEED x TYNE i SIN(GJS) i 2.3 / SCALD; 
NEW: 3 YY 1 (SPEED * TYME t COS(CUS) S 1.92 / SCALD ; 
001: 3 SCUND(NEW) ; 

C02:=fiGUND(NEHY) ; 

END; 



PRCCEE'URE MOVE IT ; 

BEGIN 

GRAFNGDE; TEXT:=rALSE; 
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CLEAR30X; 

PENCOLCROW© : 

MO» : ETO ( RGIMD ( XX) ,ROtND(YY)) ; 

IF TRACE THEN FENCCLCR(WHITE) : 

MOv'ETCK 001,002) ; 

PENCOLOR(NQNE) ; 

DRAWBLOCX(SHIPF1G,2,3,3,?,3,001,CC2,5) ; 
LETTER ( 00 1 , 002 . TARGET) ; 

END; 



BEGIN < aiove2 ) 

(3ESR TURTLEGRAPHICSi) 

(3E$R THESISa*) 

(m TRANSCEND*) 

GSAFMCDE ; TEX^ALSE; 
it!FLAG:=FALSE; 

TFLAG1:=TRUE; 

XI :=0LDffl<YI 1 .MTARGET] ; 

Y 1 :=CLC0XY 1 2 ,MTARGET3 ; 
X2:=QXYI1,MTARGET3; 

Y2 :=0XY I 2 .MTARGET3 : 

DX:=(X1 - X2) / 2.3; 

DY:=(Y1 - Y2) / 1.92; 

COURSE :=0ESR£E3< OX, DY) ; 

CUS := COURSE .* PI / 188; 
DISTSPD(DX,DY, DISTANCE, SPEED) ; 
GETTIME; 

TRACE®; 

NEXPOSIT; 

HWEIT; ’ 

END; ( ;«cve2 ) 

SEGMENT PROCEDURE RECENTER; 

PROCEDURE RCTRPART ; 

CCNST XC-140; 

YC-?6; 

CAR J,BX,3Y,GX,0Y: INTEGER; 
RCENTR : CI-sAR : 



PROCEDURE CASEA; 

3EGIN 

J :=GRD( RCENTR) -GRD( '3'); 

J :=>]+ 1 ; 

3X :=ROUND( ( 3XY II , J3-XC) /SCALE) +XC ; 
9Y :=RC^O( < 3XYI2.J1-YC) /SCALE) +YC ; 
XCTR:=ROUND(BXY[ 1 , J35 ; 
YCTR:=R0LND(EXY[2, jl) : 

END; 

PROCEDURE CASES: 
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BEGIN 

IF RCENTR IN I'A'./J'I THEN J:=CRD(RCENTR)-CRO('A') 

ELBE J :=CRD< RCENTR) -CRD ('a') ; 

OX : =SCUND ( ( CXY II , J 3 -XC) /SCALE) +XC ; 

OY :=ROUND ( ( OXY 1 2 , J ] -YC) /SCALE) + YC j 
XCTR:=«OlND<OXYtl,J]>; 

YCTR:=ROLND(QXYI2,J3) : 

END; 

BEGIN ( rscsntar ) 

(*5R THESIS3J) 

(S£$R TURTUEGRAPHICS*) 

RCTRFLAG:=FALSE; 

8L-LAG:=TRUE; 

3RAFHQDE; TEXT :=FAL3E; 

IF (MAXCRFNGE > 0) AND (MAXBLUE > 9) THEN BEGIN 
OKSET:=['3'..'?'/A / ./J / /a / .. , j , 3; 

S0XSTRING(2.2/ RECENTER (X WHICH SHIP (3-9/A-J)? ') 

RCENTR:=GETChAR(OK$ET) ; 

IF RCENTR IN ['9'./?' 3 THEN CASEA ELSE CASES; 

END; 

IF (MAX BLUE = 9) THEN 
BEGIN 

CKSET:=['9 / .. / ? / 3; 

3GXSTRING(3,2,' RECENTER AN WHICH SHIP (9-?)? ') 

RCENTR :=GETCHAR(OKSET) ; 

CASES; 

END; 

IF CMAHOftWGE = 9) THEN 
BEGIN 

OKSET^ra'..'?'!; 

BCXSTRING(3,2, / RECENTER ON WHICH SHIP (8-9)? 0 

RCENTR ;=GETCHAR(OKSET) ; 

CASEA; 

ENO; 

iNITTURTLE; 

IF MAXELL'S > 8 THEN 5E3IN 
FOR J;=l '0 MAXBLUE DO BEGIN 
BX :=ROUNO ( ( 3XYI 1 , J 3 -XCTR) /SCALE) +XC ; 

BY :=RO(MX (3XYI 2 , J3 -YCTR) /SCALD + V C; 
DRAKSLCC:\CSHi?FIG.2,9.3.?,3,3X,3Y.13>: 

NUMBER (BX.SY.J) 

END; 

END; 

IF MAXORANGE > 3 THEN BEGIN 
FCR J := 1 TO MAXCRANGE DO BEGIN 
OX:=ROIND((QXYI 1 ,J'-XCTR) /SCALD +XC ; 

OY :=RGUNO( (CXYI2.J3 -YCTR) /SCALE) *YC : 
DRANBL0C1<C$HIPF!G,2,3,3,?,3,CX,QY,5) ; 
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L£TTER(CX,OY,J) 

END; 

END; 

END: 

PROCEDURE RERIXPART; 
m J: INTEGER; 

TESTVALUE: REAL; 

PROCEDURE STARTOftNGE; 

BEGIN 

J:=l; 

TE3TVALUE :=0 ; 

SEGEKCRNHIST, 'i*4:CRNGCtD.DATA') : 

WHILE (NGT EQF(0,WI3T)) AND (TE3TVALUE ) -99?) AND (J O :8) DO BEGIN 
QXYI!,JI;=CRNHIST A ; 

GET(ORNHIST) ; 

QXYI2,J3:=0®HIST A ; 

J:=J+I; 

GET(GRNHISD ; 

TESTVALUE:=08iHIST A ; 
r!AXORANGE :=J - !; 

END; 

END; 



PROCEDURE BTARTBLUE; 

BEGIN 

J:=l; 

TtSTVALUE :=8 : 

RESET (SLUM I ST, ' 14; GLUE OLD. DATA') ; 

WHILE (NOT EOFOLUHIST)) AMD (TESTVALUE > -999) AND (J <= 13) DO BEGIN 
3XYI l.J3:=8LUHIST A ; 

GET (SLUM 5 ST) ; 

ENY[2,JI;=8LUHIST A ; 

J ; ~'j * : ; 

GET(SLUHIST) ; 

TESTVALUE :=9LUHI 3T A ; 

NAXBLUE:=J - 1; 

BsD: 



PROCEDURE RE3ETFLAGS: 
BEGIN 

CONTINUE :-FALSE; 
DBCALL£D:=F4LSE; 
CASE 1 :=FAL3E : 

TFLAG1 :=FALSc ; 
T FLA62:=FALSE; 
TFLAG2:=fALSE; 
TRjA64:=FALSE; 
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TFLA65 :=FALSE ; 

TFLAG6:=fALSc; 

TE<T:=TRUE; 

END; 

BEGIN { RERUN ) 

TESTVAlUt :=8 ; 

RRfLAG:=TRUE; 

RESETFIAGS; 

CONTINUE :=TRUE; 

3LFLAG TRUE ; 

, s V5iXCRPNGE :=8 ; 

GPjtNG31GVE:=8; 

BLUEHWE :=8 ; 

SCAL£:=1; 

INITTURTLE; TEXTNCDE; 

CLOSE ( 31'JH I ST , LOCK) ; 
CtG$E(CRNH!ST,LOOO ; 
STARTCRANGE: 

QRANGEMCWE ^QRANGEMGLE + !; 
3TARTSLUE: 

3LUEN0UE ;=8LJEKCL>E + I; 
RESEKATINE, '*4:T!M.0ATA') ; 
TIME:=ATIHE‘; 

END; ( rerun ) 



BEGIN ( CASE } 

IF SCTRFLAG THEN RCTRPART ; 

IF CASE 1 THEN RERUNPART ; 

END: 

SEGMErTT PROCEDURE BOTTOM INE; 
IAS SCSIST; REAL; 

XT.XC,YC: INTEGER; 

STINE, 3XCTR.SYCTR; STRING; 



PROCEDtJRE HEADER; 

BEGIN 

(JSR TURTLEGRAPHIC350 
GRAFMCCE: T EXT :=FAL3E; 

3LFLAG;=FhLSE; 

GRAFFLAG:=TRUE; 

PENCOLOR(NCNE) ; 

JfflUETO<a,;04); 

WSTRINGC ' ')) 

HGVE70<9,184); 

PENCOLOR(NHITE) ; 

«OMETO(0,I?e); 

MGVET0(8,187) ; 

SCOIST:* 39/SCALES2.72; 
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X7:=R0IMD(SCDIST) ; 

M0VETO(XT, 137) ; 

MOVETOIXT, 190) ; 

MOVETOIXT, 134) ; 

PENCCL0R(NOND ; 

M0VET0(XT»7,i32): 

WSTRINGI ' : 18 m '); 

XC:=f?OUNO < XCTR/2 . 3) ; 

YC:=R01M)(YCTR/1.?2) ; 

STR(XC.SXCTR) ; 

3TR(YC. SYCTR) ; 

NSTRINSCSXCTR) :«3TRING(' /) ;WSTRING(3YCTR) ; 
-mSTRING< ' : CTR 0; 

USTRING( ' TIME: '); 

STRITIHE.STIME); 

WSTRING(STIMD ; 

END; 



PROCEDURE INTERCEPT; 

VAR T G7,73T2,CUS1.DT,DTLEN,ICUS: INTEGER; 

Tl,72: CHAR; 

aXJRSEl,SPEEDl,Wl ) VYl,X,Y,IX,IY,DIX,DIY,ISFO,DXl,DY3,X2,Y2; REAL; 
PROCEDURE TYPEKT: C1AR; VAR DX,OY: REAL) ; 

VAR X 1 ,Y 1 : REAL; 

BEGIN 

TGT :=QRD(T) -OSD( '3' ) + 1 ; 

X 1 ;=0LDBXY II , T8T 3/2 . 3 ; 

Yli=O.DBXYE2,TGT3/!.92; 

X2:=3XYtl,7GT]/2.S; 

Y2:=8XYI2,TGT1/1.?2: 

DX:=(X1-X2) : 

DY :=(Y1-Y2) ; 

END: 

PROCEDURE 'YPE2(T: CHAR: VAR DX,DY: REAL); 

VAR XI, Yl: REAL: 

BEGIN 

IF T IN IV./n THEN TGT :=CRD(T) -CRD( '3') * ! ELSE TGT : =ORD ( T) -GRD ( " A " ) + 1 
XI :=OLD0XY[ 1,7371/2.3: 

Y!:=CL00XY[2,7G73/!.?2; 

X2;=0XY[ 1.7G7I/2.3: 

Y2:=0XYC2,T6T1/1.?2; 

DX:=(X1-X2) ; 

DY:=(Y1-Y2) ; 

END: 



FUNCTION DEGREES (DXJY: REAL) : INTEGER: 

CONST ERR = 8.31; 

VAR VALUE: INTEGER: 

SEGIN 

IF (DX < (3+ ERR)) AND (DX > (9-E.RR)) T KEN SEGIN 
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IF (DY < ( 0+ERR) ) AND (DY > (9-ERR)) THEN DEGREES := 3; 

IF DY ) 3 THEN DEGREES := 1S9; 

IF DY < 3 THEN DEGREES := 369; 

EX IT( DEGREES) ; 

END; 

IF (DY < C0+ERR)) AND (DY > (3 -ERR)) THEN BEGIN 
IF DX > 9 THEN DEGREES := 270; 

IF DX < 8 THEN DEGREES := 898; 

tXIT( DEGREES) ; 

END; 

VALUE := R0UND( IS8 / ?I t AT AN (DX/DY)); 

IF ASS (VALUE) <> VALUE THEN BEGIN 
IF DX < 9 T HEN DEGREES := 189 t VALUE; 

IF OX > 9 THEN DEGREES := 368 * VALUE; 

END 

ELSE BEGIN 

IF DX > 9 THEN DEGREES; 2 189 + VALUE; 

IF DX < 9 THEN DEGREES: 2 VALUE; 

END; 

END; 

PROCEDURE MESSAGE; 

SEGIN 

S0TGXY(9,3);CST(ERA3E0S); 

GQTQXY(8,3) ; 

TEXTMODE ; TEXT:=TRUE; 

MRITELNt' NOT ENOUGH DATA TO COMPUTE INTERCEPTS AT THIS TIME 0: 

HRITELN: 

HRITELM' < PRESS RETURN TO CONTINUE >') ; READLN; 

EXmSOTTCMLIND ; 

END; 

PROCEDURE MESSAGES; 

BEGIN 

GOTGXY(3,9) ;CRT(ERASEOS) : 

GOTGXYO .3) ; 

TEXTMODE ; TEXT:=TRUE; 

HH7ELN(' INTERCEPT: THE COURSE AND -FEED REQUIRED FCR UNIT# \T2) ; 
HR!7ELN(' TO INTSRC£? T UNIT# ',71.' IS: '); 

XRITELN; 

HR17ELNC' ICUS/ DEGREES AT ' .ROIND(ISPD) KNOTS 

XSITELN; 

HRITELN (' DO YOU HANT TO .MAKE THIS CHANGE TO THE DATABASE 0 <Y/N>') 

OKScTs=C'Y' , '•/' , 'N' ,'n' 3 ; 

T1:=GETCHAR(GKSET ♦ ICHR( 13)15; 

IF T1 IN E'Y'.'y'l THEN BEGIN 
'3CUSITGT23 : 2 !0J3?P!/189; 

3SPDETGT2T :=ISPD; 

NRITELN( ' CHANGE HAS SEEN MADE ! ') ; 

HRITELN; 
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NRITELN( ' < PRESS RETURN TO CONTINUE ) ') jREADLN; 

END; 

END; 



EEGIN 

«*R THESIS830 
<*$R TRANSCENDS) 

«$R PuRTLEGRAPHICSiO 
ICPTFLAG:=FALSE; 

3LFLFM3 :=FALSE ; 

IF (BLUEMQVE <= 1) OR (TIME = 3) THEN MESSAGE; 

GRAFMQDE; TEXT:=FALSE; 

GKSE7;=['3'..'9' 1 'A'..'J','a'..'j']; 

DTLEN:=3; 

SOXSTR I NG ( 3 , 2 , ' I CRT : LETT ER/NWBER OF UNIT TO INTERCEPT'); 
T1:=SETCHAR(CKSE7) ; 

IF T1 IN ['3'..'?') THEN TYPEHT!,DX1,0Y1) ELSE TYPE2<T1,DX1,DY!) 
CUS1:=DEGREES(DX1,DY1) ; 

COURSE 1:=CU$1 i PI / 183; 

SPEED 1 :=SGRT < SQR< DX 1) +SGR< DY 1) ) /CELTAT ; 

VX1:=SPEED1SSIN(C0URSE1>; 

Wl;=SPEEDHCOS (COURSED ; 

0KSE7:=l'3 , ./9'3; 

BGXSTR!NG<3,2,' ICPTiNIt'BER OF MANEUVERING IN! 7 (3-?) '); 
T2;=GETCHAR(CKSED ; 

73T2:=0RD(72)-0RD('3')*1; 

X:=8XY[l,TGT23/2.3; 

Y:=5XY[2,TGT2]/1.?2; 

REPEAT 

3CXSTR!NG(3,2,'IC?T: DESIRED TIME TO INTERCEPT (3-99?)'); 
GETINTEGES(OT,DTLEN); 

IWTIKDT )= 3) AND (DT <« 999 ) ; 

CLEARECX; 

iX;*<W«DT)*X2; 

IY!*(VYKDT)+Y2; 

DIX:=X-IX; 

OIY:=Y-iY; 

ICUS:=0E8REES(DIX,DIY) ; 

ISFO:=SuRT( SGR(OIX) +SOKDIY) J/DTS49 : 

MESSAGES; 

END; 

BEGIN ( bline } 

IF ICPTFlAG THEN INTERCEPT ; 

IF SLFLA6 THEN HEADER; 

END; 

SEGMENT PROCEDURE 7MAFINIT; 

VAR SFLAG.GFLAGl: CHAR; 

LEVEL): 3E7CFCHAR; 

SAVEFLAG: BOOLEAN; 
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SNCW , 3010 , CNGl , GOLD : FILE OF SEAL; 

MI SC: FILE OF INTEGER; 

PROCEDURE PREFINISH; 

BEGIN 

0KSET:=I'YVyVN','n'3; 

GQTQXY(3,0);CRT(ERA$EQS); 

WRITELN; 

WRITELN!' MEMORY AVAILABLE IN WORDS: \MEMAVAIL) ; 

WRITELN; 

WRITELN!' MOTION ANALYSIS PROGRAM OPTIONS : ') ; 

WRITELN; 

WRITELNC ' DO YOU NISH TO CONTINUE THIS GAME LATER CY/N)? 0; 
WRITELN :WRITELN; 

WRITE! ' '); GrLAGl:-6ETCHAR(0KSET+CCHR(13 ) j) ; 

CRT(ERASEOS) ; CRT(ERASEOS) : 

IF 3FLAG1 IN ['Y','y'3 THEN SAVEFLAG :=TRUE ELSE SAVEFLAG:=FALSE 
END; { PREFINISH } 

PROCEDURE START; 

BEGIN 

GOTOXY(3,9);CRT!EEASEGS); 

WRITELN; 

WRITELN! ' MEMORY BAILABLE IN WORDS: ' ,MSMAUAIL5 ; 

WRITELN; 

WRITELN!' MOTIGN ANALYSIS 3 ROGR#l OPTIONS : ') ; 

WRITELN!' '); 

WRITELN!' 3 Motion Analvsis Program'); 

WRITELN!' 1 Rerun Motion Analysis Program') : 

WRITELN!' 2 3ui!d or ModiTv Data Base'); 

WRITELN!' 3 Terminate Program') ; 

WRITELN; 

WRITE!' '); GFLAG:=6ETCHAR(LEVEL3) ; 

CRT (ERAS ECS) ; CRT (ERAS EOS) 

END; { START ) 



PROCEDURE SAVIT; 

CAR I, J; INTEGER; 

BEGIN 

REWRITE! ENOW, ' 35 : OLD 1. DATA') ; 
FCR J:=l TO MAXBLUE DO BEGIN 
SNCW^SXYriJ); PDTCENCW) ; 
3MW‘:=BXYI2,J]; PUT ( ENGP) ; 
MW A :=GCUS[J 3 ; PUT! ENOW) ; 
3N03 A :=SSPD[J3; PUT'BNCW); 
END; 

CLOSE! ENCW, LOCK) ; 

REWRITE! BOLD, '45.-0LD2.OATA') ; 
FOR J;*i TO MAXBLUE DO BEGIN 
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BOLD* :=GL08XY 1 1 , J I ; PUT ( BCD) i 
30LD A :=GLD3XY[2,J3 : PUT(BOLD) ; 
END; 

CLOSE CECLD ,LGCK) ; 
i©*ITE(CN0N, '#5:CLD3.DATA') ; 
FOR J:=l TO MAXCIVMGE DO BEGIN 
CNO^QXYll.J]; PUT ( CHOW) ; 
GNOW A :=OXYI2,J3; PUT(CNCH)? 
END; 

a.OSE(CNQH,UJCK) ; 

RfWRITE(QCLD, 'S5:0LD4.0ATA') ; 
PCS J:=l TO HAXCRANGE DO BEGIN 
OOLD A ;=OLDCXY U , J] ; PUT ( COLD) ; 
CCLD A :=0LD0XYI2, J3 ; PUT(GOLD); 
END; 

CLOSE (OOLD, LOCK) ; 

REHRI7E(MI3C, '4S:OLD5.DATA') : 
H!$C A :=TIHE; PUT (NISO ; 
NISC A :=BL , JEJ10C ; E; PUT(NISC) ; 
MISC A :=ORANGEMGVE; PUT(MISC); 
CLOSE (HI SC, LOCK) ; 

ENO: 



BEGIN ( TNAFINIT ) 

CLOSE < SLUH 1 3T , LOCK) ; 

CLOSE ( BLUGAHE , LOCK) ; 

CLC-SE< CF3NHI 3T , LOCK) ; 

CLOSE (O^GPME, LOCK) ; 

CLOSE < AT I ME , LOCK) ; 

L£VEL3:=I'8V 1 V2','3' 3; 

QUiTFLAG:=FALSE; 

RP.FLA6:=FALSE: 

START: 

CASE 3FLAG OF 
'V : CASE3:=TRIjE; 

•V : CASE!:=TRUE; 

'2' : CASE2:=TRUE: 

END; ( CASE ) 

IF GFLA6 = 'S' THEN BEGIN 
PREFINISH: 

IF SAVEFLAG THEN SAUIT; 
STO?FLAG:=TRUE; 

END; 

END; { THAFINIT ) 

«SS+*) 

WIT SETC.RT; INTRINSIC CODE 23 DATA 24; 



INTERFACE 

TYPE CRTCOWMD=< ERASEOS .ERASEGL .UP . DCW.RI 3HT , LE: 



T.LEADIN) 
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SETOFCHAR=S£T OF CHAR; 

VAR CRT INFO: PACKED ARRAY I CRT C3tWNO ] OF CHAR; 

PREFIXED: ARRAYIC3TCG+1AND3 OF BOOLEAN; 

F:FILE; 

PROCEDURE GETORTINFO; 

PROCEDURE CRT(C : CSTCCmWl ; 

PROCEDURE PRCMPTAT(Y: INTEGER; 3: STRING) ; 

FUNCTION 3ETCHAR(0KSET: SETOFCHAR) : CHAR; 

PROCEDURE G£TSTRING(VAR S: STRING; HAXLEN: INTEGER) ; 
PROCEDURE GET INTEGER (VAR NU-IER.LEN : INTEGER); 

IMPLEMENTATION 

CONST 

3S * 3; 

SPACE = 32; 

CR = 13; 

VAR BUFFER: PACKED ARRAY 19. .5111 CF CHAR; 

I, BYTE: INTEGER; 

CH: CHAR; 

GOOD; BOOLEAN; 

SI '.STRING! II; 

STEMP: STRINGCS3]; 

POSITION: INTEGER; 

CHARRAY: ARRAY! I. . 10] OF CHAR; 

READINTEGER: INTEGER; 

DIGITS, OKSET: SET CF CHAR; 

0LDN8R ; INTEGER? 

OLD; BOOLEAN; 



PROCEDURE GETORTINFO; 
{ 



READ SYSTEM. HI SCINFO AND GET CRT CONTROL CHARACTER INFO 



{ 

BEGIN 

RESETIF/SSYSTEM.MISCINFO') : 

I :=6L0CXREA0(F, BUFFER, 1) ; 

CLOSE (F) ; 

3YTE :=ORDO 3UFFERI 722) : { PREFIX INFORMATION BYTE } 
CRTINFOILEADIN] :=8UFFER[c2j ; PREFIX EC HEAD IN] :=FALSE : 

CRTINFOIERASEOS! :=SUFrLRIS43 ; PREFIXEDtERASEDS] :=OOD(8YTS DIV 3) 
CRTINFOIERASEOL3 :=8UFFER[653 ; PREr IXEDCERASEOL3 :=0DD(3YTE DIV 4) 



CRT!NFOIRIGHT3:=8UF=ER[S63; 
CRTINFOIUP3 :=SUFFERIo7I ; 
CRTINFG[L£ = T 3 :=BUf FER 1 68 3 ; 
CRTINFGEDGW4] :=CHR( 19) ; 

=ND; 



5 REF!XEDIRIGHT3 :=GDD(BYTE DIV 2); 
PSE=IXED[UP3:=ODO(8YTD: 

PREr I XED I LEFT 3 : =ODD ( BYTE DIV 32); 
FRE?IXEDEDOW3:=fALSE; 



PROCED'URE CRT; 



{ } 

{ CRT COMMANDS ARE : ESASEOS , EPASEGL , UP , COW ,31 6hT . LEFT . > 

{ ) 

BEGIN 

IF PREFIXEDIC3 THEN UNIT>4RITEC 1 ,CRTINFO[L£AOIN3 ,1,3,12); 
UNITWRITE(l,CaTINFOEC3,l,3.i2): 

END; 



PROCEDURE rRGMPTAT; 

BEGIN 

GuTOXY(8,Y) ;XRITE(S) ;CRT!ERASEOU ; 
END: 



FUNCTION GETCHAR; 

( } 

( GET A CHARACTER, BEEP IF NOT IN GKSET, ECHO OMLY IF PRINTING } 
{ } 

BEGIN 
REPEAT 

REAOtKEYEQARD.CH) ; 

IF EOLNCKEYSOARD) THEN CH:=CHR(13); 

GOOD:- CH IN GKSET; 

IF NOT GOOD THEN MRITE<CHR!7» 

ELBE IF CH IN [' THEN NRITE(CH) ; 

UNTIL GOOD; 

GETCHAR :=CH; 

END; 



PROCEDURE 6ET3TRING; 

{ 3 
( GET AND ECHO A STRING UP TO HAXLEN CHARS LONG. > 
( IF NULL STRING ENTERED, DEFAULT PND PRINT PREVIOUS VALUE. } 



BEGIN 
OKSET :=t ' 

51 ' . 



37EMP:="; 

: 0R -GSITICN := i TO MAXLEN DO 
XRITE('_ ) : 

POSITION := U 

PGR POSITION := 1 TO MAXLEN DO 



NR!TE(CHR!BS)> ; 

POSITION :=1; 

REPEAT 

IF LENGTH! STEKP) = 3 THEN SHU:=GETCHAR<CKSEr ♦ ICHRU3)]) 

ELSE IF LENGTH! STEM*) -MAXLEN THEN 3H 13 :=GETCHAR([CriR( 13) ,CHR(8) I) 
ELSE Si!!];=GETCr!AR(GKSt7 + iCHR! !3) ,CHR(S) I) ; 

IF 31113 IN QXSST THEN ST3*P:=CCNCAT(STEMP,S1) 
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ELSE IF SIC 1]=CHR<3) THEN 



SEGIN 

CRT <L£FD ; WRITE!'.'); CRT (LEFT) : 
DELETE ( STEM? , LENGTH! STEMP) , 1) : 
END; 

(MIL 31C1I = CHRC3); 

IF LENGTH! STEKP) O 9 THEN $:=STEHP 
ELSE NRITE!S) ; 

END; 



PROCEDURE GETINTEGER; 

SEGiN 

OLD := FALSE; 

OLENBR:=NUiBR; 

0IGITS:*C'9'. 

FOR POSITION ;= 1 TO L£N DO 
WRITE! '.'); 

FOR POSITIGN := 1 TO LEN DO 
WRI7E(CHR(3S)5 ; 

POSITION := 1; 

WHILE PGSITICN = 1 DO 
BEGIN 

READ ( KEYSOARD , CHARRAY E POS I T I ] ) ; 
Ir(CHAfiRAYl 13 IN !CHR(SPACD ,ChR(CR) I) THEN 
3EGIN 

NH'BR := QLDNBR; 

WRITE(NLHSR) ; 

OLD := TRUE; 

2 GSITIGN := POSITION I; 

END 

ELSE 

!F(CHARRAYC SI IN DIGITS) THEN 
BEGIN 

WRI7E!KEY6GARD,CHARRAY[P0SiTI3'<j) ; 
r OS ITICN:=FOSITIOf ♦ i; 

END 

ELSE 

WR!TE!CHR(?)) ; 

END; 

IF NOT OLD THEN 
BEGIN 

WHILE ?OSITIGN<=L£N DO 
BEGIN 

READ ( KEYBOARD , CHARRAY [POSITION]) ; 

IF (CHARRAYIPGSITIONI IN DIGITS) THEN 
BEGIN 

WR1TE(CHARRAYCPOSITION]) ; 

POSITION := POSITION * 1; 

END 

ELSE IF CHARRAY [POSITION I = 0HR(3S) THEN 



BEGIN 

IF POSITION > 1 THEN 
BEGIN 

XRITE(CHR(SS)>; 

MRITEOV); 

WRITE(CHR(BS)) ; 

POSITION := 90SITICN - 1 
END; 

IF POSITION <= 1 THEN POSITION := 1; 

ENT) 

ELSE 

BEGIN 

IF (CHARRAYIPOSITICN3 IN ICHR(SPACE) .CHR(CR) 3) THEN 
POSITION; =L£N ♦ 1 
ELSE 

XR!TE(CriR(?)) 

END; { begin ) 

END 0 i-f-then-else } 

END; 

READiNTEGER:=0; 

FOR POSITIONS TO LEN DO 
BEGIN 

IF (CHARRAYIP05ITICN3 IN DIGITS) THEN 
READftfltGtR:=I83tRE 4 DINTEGLR+GfiD(CHARRAY[pQSITIGN3)-GfiD('3') ; 
END; 

IF OLD THEN NUPBR :=OLDNBR ELSE 
NIKBR :=READ INTEGER ; 

END; 

BEGIN 

END. 



(SfS+S) 

UNIT THESIS9; INTRINSIC CODE 25 DATA 26; 



INTERFACE 

USES TURTIEGRAPHICS; 



SHIPFIG: PACKED ARRAY!!. .3, 3. .73 OF BOOLEAN; 
3XY.QXY: °ACKED ARRAY! I..2. 1. . 10] CF REAL; 
SCALE: REAL; 

XCTR , YCTR . MAXtUiE . MAXCRANGE : INTEGER ; 

PROCEDURE NUfflER<X,Y,J: INTEGER) s 
PROCEDURE L£jTER(X,Y,J: INTEGER): 

PROCEDURE SGXSTRING(X,Y : INTEGER; 3: STRING); 
PROCEDURE CLSARSGK; 

PROCEDURE DESCALE; 

PROCEDURE UPSCALE; 



IMPLEMENTATION 

CONST 

XC = 143; 
YC = 96 : 



VALUE: INTEGER; 

NUM,XT,YT: INTEGER; 

VAL: CHAR; 

3X,3Y,0X.QY,J: INTEGER; 
L,.R,3,T: INTEGER; 

PROCEDURE NUMBER; 

BEGIN 

NUM:=J-1; 

XT:=X-3; 

YT:=Y-?; 

MQVE70(XT,YT) ; 
UAL:=C. L iR(NUM+eR0( , 3O); 

XCHAR(VAL) ; 

END; 

PROCEDURE LETTER; 

SEGIN 

NUM:=J- ! ; 

XT:=X-3: 

'fT :=Y-9; 

MGVETOfXT.YT) ; 
l . J AL:=CHR(MIH+ORD( , A / )) ; 

XCHARCVAL) ; 

END; 

PROCEDURE BOXSTRING: 

BEGIN 

FENCGLOR(NCNE) ;MOVETO(X.Y) ; 

L:=X-3: H :=X+2+ 73EL£NSTH< S) ; 

3:=Y-2: T:=f* 18; 

VIBffORT(L.a,3.T): 

F I LL SCREEN < BLACK) ; 

VIEWPORTS. 279, 8. 191) ; 
FSNCSLQR(NCS® ? MCv'ET0(L,3) ; 
PENCCLOR(WHITE) ; SWETQa.T) ; 
,M0*JET0(R,7) ;MWETO(R,3) ;M0METQ(L,3) 
PENCOLGR(NONE) : XCUETO(L+3,3*2> : 
WSTRING(S) ; 

END; 



PROCEDURE CLEAR5GX; 
SEGIN 



PENCOLOR(NCNE) ; 

L:=8; 3s=9; R:=5 ♦ 7 * 49; T:=I2; 
VIEMP0RT(L,8,3,T) ; 

F I LLSCSEEN ( SLACK) ; 

VIENPCRT<3,27?,3,1?1); 

END; 

PROCEDURE QCWSCALE; 

BEGIN 

SCALE :=SCAL£ / 2; 

INI HURTLE; 

PENCCLCR(NGNE) ; 

IF NAXBLUE > 9 THEN BEGIN 
FOR J:= 1 TO HAXBLUE DO 2EGIN 
SX:«ROWD«BXY[ 1 .J3-XCTR) /SCALE) <-XC; 
BY :=ROlSND( (3XYI2, JI-YCTR) /SCALE) +YC; 
DRANeLCCK<3HIPFI3,2,3,3 1 7,3,SX.3Y,I9) 
NUMEER(3X,3Y,J) ; 

END; 

END; 

IF MAXORANGt > 3 THEN BEGIN 
FOR J;= 1 TO MAXCRANGE CO BEGIN 
OX:=ROUND( (QXYJ S . J3-XCTR) /SCALD *XC; 
QY :=ROUND< ( 0XYC2 , JC-YCTR) /SCALE) *YC ; 
DRAW8LOCK(SHIPF!G,2,3,0,7,3,CX,OY,5) ; 
L£TTER(OX,OY,J) ; 

DIO; 

DD; 

END; 

PROCEDURE UPSCALE: 

BEGIN 

SCALE :=SCALE 3f 2; 

INITTURTLE; 

PENCOLCR(NOND ; 

IF HAXBLUE > 3 THEN BEGIN 
FOR J:= 1 TO HAXBLUE DO BEGIN 
3<:=R01ND<(3XY[ 1 , J3-XCTR) /SCALE) *XC; 
BY :=RCIMD ( ( BXY 1 2 , J ] -YCTR5 /SCALD *YC: 
DRAW8L0C;<(SHIPFIG,2,3,3,7,3,3X,3Y,13) 
NUMBER (3X, BY. J} ; 

END; 

DID; 

IF MAXCRANGE > 9 r HEN 3E6IN 
FOR J:= 1 TO TAX GRANGE 00 BEGIN 
GX:=ROUND((QXY[ ! , JI-XCTR) /SCALD A XC: 
GY:=RCUNDI(CXY[2,J]-YCTR)/SCALD +YC; 
DRAWBLCCX(3HIPFIG,2.3,3,7.3 ,jX.0Y,5) ; 
LEHER(OX,OY.J) ; 

END: 



END; 

END; 

BEGIN 

END. 
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